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Jede Menge 
Software fur: 


ZX-Spectrum 
Apple 
Dragon 32 
Atari 
VC-20 
VC-64 
ZX-81 
11-99 



Vorwort 


Lieber Computerfreund, 

die Tronic- -Verlagsgesellschaft mochte sich mit 
ihrer neuen Zeitschrift Computronic bei Ihnen 
vorstellen. 

In Computronic finden Sie Tips &. Tricks fur 
Einsreiger, Anfanger und Fortgeschrittene. 

Inform ationen und Daten. Sinn voile 
Anwendungen und Anregungen und natiirlich 
jede Menge Programme fur die bekanntesten 
Home-Computer. 

Neben einem erfolgreichen Start wiinschen wir uns natiirlich dem Markt gerecht zu werden. Dazu 
gehoren nach unserer Meinung gute Spielprogramme, anspruchsvolle Programme fur Schule, Hobby, 
Buro usw. und Informationen zur Anwendung. Wir wiirden uns freuen, wenn Computronic eine 
gleichermafen beliebte Computerzeitschrift bei Anfangern und Fortgeschrittenen ward. Ein Tip : 
Schreiben Sie uns bitte, wenn Sie Verbesserungsvorschlage oder andere gute Ideen zur Yervoll- 
standigung unseres Angebotes haben, wobei wir naturlich auch fur jede kritische Anmerkung 
dankbar sind. 

Zu unseren abgcdruckten Programmen folgende Bemerkung: jedes abgedruckte Progtamm wird einer 
Endkontrolle unterzogen und genau iiberpruft. Sollte sich dennoch einmal ein Fehler einschleichen, 
oder der Druckteufel eventuell sein Unwesen treiben, sind wir fur Ihren Hinweis naturlich dankbar. 
Wir reagieren dann sofort und geben die Korrektur weiter. ^ 

Fur die Zukunft wiinschen wir uns jetzt schon zuffiedene »Computronic-Leser« und hoffen, fur jeden 
etwas Interessantes zu bringen. 

Herzlichst 

Ihre Computronic-Redaktion 



P.S. Mochten Sie als Software- Autor fur den Verlag tatig werden? Ndieres im Inhalt Seite 14. 
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Aktuelles 


Vorstellung des neuen Sinclair »QL« 



Die Bezeichnung des neuen von Sinclair hergestellten Com- 
puters QL ergibt sich a us den Wortern Quantum Leap und be- 
deutet nichts anderes wie Quantensprung, 

Der QL soli weniger mit den bereits erhaltlichen kommerziell ge- 
nutzten Kleincomputern konkurieren, son der n vielmehr den 
professionellen Markt betrachtlich erweitern, so wie der ZX 80 
den Markt fur Heimcomputer erschlossen hat- 

In erster Linie wird der Sinclair QL for professionelle Benutzer, 
etwa for kleinere Unternehmen, Schulen als auch anspruchs- 
voile private Anwender geeignet sein. 

Mit diesem Gerat wird das Preis/Leistungsverhaltnis von Tisclv 
computern stark verschoben. Der QL wird den Preis der 
ieistungsmaRig vergleichbaren Rechner um ca. die Halfte unter- 
bieten* So wird der Preis des voraussichtlich noch im Herbst 
dieses Jahres bei uns auf den Markt kommenden QL unter 
2000, — DM liegen. 

Der Computer selbst hat einen genormten 128 KByte-RAM- 
Speicher, der extern uber ein 0,5 MB RAM-PACK auf 
640 KByte ausgebaut werden kanm Fur die Massenspeichenmg 
sind zwci 100 KByte Mikrolaufwerke eingebaut, die ebenfalls auf 
800 KByte erweitert werden konnen. Ein hohes Auflosungsver- 
mogen zeichnet den QL in seinen farblichen Bildschirmdar- 
stellungen aus. 


Die Programmiersprache des Sinclair QL ist eine Erweiterung 
der bisherigen Sinclair BASIC-Sprachen, die Sinclair Super 

BASIC. 

Abgesehen von den unmittelbaren, nutzbaren Moglichkeiten 
ist der Sinclair QL fast tinbegrenzt ausbaufahig* 

In der Entwicklung befinden sich eine Anzahl peripherer Cerate 
und Systemerganzungen, wie beispielsweise das 0,5 MB RAM- 
PACK, 68000 Assembler, Modem, Interface for S until ta tv 
drucker mit akustischen Mehrtongener ator , Analog/Digital- 
wandler, Pascal-Compiler und div. mehr. 

Uber Zusatzanschliisse an der Ruckseite bietet der QL Erwei- 
terungsmoglichkeiten wie den Einsatz in lokale Netzwerke, den 
Anschlufi von zwei Joysticks als auch den Einsatz von ROM- 
Cassetten. x 

Eine normgerechte Schnittstelle for die Kommunikation mit 
anderen Systenien sowie der Ansehlufi far den Drucker ist 
ebenso vorhanden wie die Moglichkeit des Anschlusses von 
S/W und RGB-Monitor. Uber den Mikrodrive Erweiterungs- 
steckplatz lassen sich extern bis zu sechs weitere Mikrolaufwerke 
einsetzen, was eine Speicher moglichkeit von 800 KByte ergibt. 
Mit dem QL ist Sinclair nunmehr in der Lage eine breite Palette 
von Computern anzubieten, die vom ZX 81 for den Brstbe- 
nutzer zu Hause bis bin zum QL for den anspmchsvollen 
Anwender rexcht. 


A 








2 FOR t = 0 TO 7: READ a 

3 POKE U5R H a 1, +t 1 a: NEXT t 

4 DATA 24 , 60 T 126, 255, 126,90, 1 
53,24 

10 LET t=Q 

20 LET ;< = INT (RND*32) 

25 LET v= I NT (RHD*22) 

30 PRINT AT 10,14% INK 1; FLAG 
H 1 ; " > < " 

40 IF tO-INT <t/2>*2 THEN GO T 

□ SO 

50 IF x >“ 1 AND *02 AND y>-l A 
ND y< 22 THEN GO TO 80 

60 LET y= y+ I NT (RND*3)-I 
70 LET :< + I NT (RND*3) -1 

BO LET a*- INKEY* 

85 IF k >“ 1 AND *<32 AND y >- 1 A 
ND y< 22 THEN PRINT AT y , ;< ; ,l " 

90 LET = 

100 LET y-y+ ( a*— " 7 " } - ( a*— " 6 " ) 

115 REM Um * zu bekommen, tippe 
n Sie H A JI i m Graphic-Mode ein 
120 IF ;<>-! AND M32 AND y >-• 1 A 
ND y< 22 THEN PRINT AT y , a ; 

130 IF a*="f" THEN BEEP .01,0 
140 IF at="i“ AND !< = 15 AND y- 1 0 
THEN GO TO 170 

150 LET t=t+i : PRINT AT 0,0; IN 


200 BORDER RND*7 
210 NEXT v 

220 PRINT AT 18,0; INK 2;"S 
at ten ihn in " ; t ; 11 Sekunden, 
230 PRINT # FLASH 1;" Wo lien 
nochmal versuchen? " 

240 IF INKEY* - M “ THEN GO TO 
250 IF INKEY*= 1l j" THEN CLS 


10 GGSUB 9B,m 

90 3CISUE 300.0 

30 IF PEEK i\£r-i*r+X+l+PE£K i£39 
E+236TFTFF 38337 -P THEN GOSUU 7 
4300 

5$ PRINT r'-JT YKbFliP 

E0 PRINT F)T V, "II" 

510 PRINT RT Tij M— 1 . " \\m < |f 

31-0 ir ,-=i DR Y~ 1 ? FIND FIDS ■ N- 
;• 3 ' THEN LET Q=-C! 

540 IF ; -Y2 DR NY 30 THEN I ET U-' 

M 


*="5 13 ' 

350 IF ,'-20 THEN GCSUP OD0D 
808 LET Y^Y+Q 
510 LET YbTU N 
4000 GOTO GO 

■7000 Print bt v,k, wrt y,' 

, RT v , X .1 " „ " f 

7Q10 IF i THEN LET i>- Q 
7020 LET S«S+67 
75S0 RE TURIN 
7333 STOP 

3000 PRINT FIT l9.. ; 0.K'iMi:*F#.##*##*L-## 

3002 PRINT HT 20.. Bi/'i 

###################" 

3005 LET R- fH 1 

3010 PRINT FIT 0,7. 3 

3015 IF R~IS6 THEN GOTO 2500 

8020 LET H4- l’HRT ■; N :■ 

3030 LET V- 1 Q 

8040 LET :;=I N T < RN D T 2E t- 4 ' > 

8050 LET n-2 

3080 LET 'Q £\- 1 

3070 LET U= l 

3075 IF RHD: -3 THEN LlT L- 1 
8100 RETURN 
03,88 STOP 

mm PRINT "PUMP 7 E #" 

8050 FOR J=1 TCi 5-1 
9060 PRINT "■##" i 
9070 NEXT J 
908D LET H-’-- 1 30 

9090 LET S--0 

9190 LET R“13S 

9110 RETURN 

95O0 PRINT AT 10- J. , "IFIRE LEISTUI 
j IET#-" ■ INI ■ 14 1000 0012 • J i j * 41 
GCiZENT" 

9510 PRINT THE J . " I HPT LEI STONE 
1ST HE 1 3TERHRFT" 


... UND HIER 2 PROGRAMME 


VON UBER 500 AUSUNSEREN 


BUCHERN. 


PLEASE ENTER . 

Schmetterball 

- Mit den Taslen #5* und steuern Sie die Bewegung der * 
Ballscbleudei am unteren Bildsch inn rand und versu- 
chen, den Ball so lange w:e rnbglich irri Spiel zu halten. 

- Sie haben neun Balls und erhalten einen Punkt fur jedes ' 
Mai v/enn es Ihnen gjelingt. eines der Kdsichen am obe- 
ren Bildschirmrand auszu lose hen JedesmaL wenn Sis ei- 

- nen Ball verlieren. nimmt Ihre Punktzahl ab. Sie haben ■ 
luni Kdstchen Reihen zum ZerschrneUem Die hcchste 
Punktzahl is! 3 618. Zurn SchluB sehen Sie Ihre *Lelstung* in 


.7c 


..yA 

i\V* 


ZUM AUSPROBIEREN. ^ Kampfpiiot 


Sie sind der Pilot eines Verteidigungsjet den Sie mit den 
Tasten "5 J - J 8 r lenken, Ihre Aufgabe ist es, den feind- 
jichen Rieger zu veTfolgen und ihn mit der V -Taste 
. abzuschiefSen. Naturlieh wartet der Auferirdische nicht - 
darauf. nurabgeschossenzuwerden. Daher wirdervon 
jedem Schritt. den Sie unternehmen, das Gegenteil tun. 

Das Spiel, sowieeshier'stehtjstfurAnfanger: limes zu 
beschieumgen. rnussen Sie Zeile150 Idschen. Der Kon- 
" strukteur des KAMPFPILOT war Paul Toland. 


i REM ' 
auYen, hevpr 
en 


Sie? Zeilen 2-4 I 
Sie den Re^t eingeb 


, "\\m" 

RND FIDS 04- 
LET a 

LET H - N+ ■ ' ! N KE 'T4 - " 8 ” ?- - < I N K E Y 

cqsui noun 


<RND*32> 

(RHD *22) 

10 , 14; INK 1 ; FLAS 
(t/2)»2 THEN GO T 
AND y>-l A 


1 .RT Y , " r" 

r 




9590 

< RNE'YEIC +4 

THEN LET UF 1 
t" 


t -t +1 : PRINT AT 0,0; IN 


10,15;" 
RND* 7 


BEEP , 0 
BEEP , 0 


len Sie 

240 
i RU 


LEI ST UN 
10, "#P 


Ernaituch hot 


Ihrem Fachhandler 


Aktuelles 




»Computer'Freaks« - Jungunternehmer von heute oder morgen? 


Dei Verkauf von Heimcomputem kam kurz vor Weihnachten 
1983 in Deutschland erstmals so richtig in Schwung. Die zu 
erwartenden Verkaufsziffern lagen weit uber den Absatzvor- 
stellungen aller W arenhauskonzerne und den sonstigen Com' 
puteranbietern, Fachliteratur, mit Startauflagen zwischen 45 000 
und 75000 Exemplar en auf den Markt gekommen, 1st ebenfalls 
vergrifFen* Selbst die »LZFZeitung«, »Deutsch lands Spezialorgan 
far a lie Formen des Massenwahns« (Zitat Spiegel), hat eine Serie 
iiber Heimcomputer (sprich » Homecomputer «) laufen. 


Selbst Skeptiker werden uns an dieser Stelle wohl recht geben, 
wenngleich sie hinzufogen warden, daE das, was sie im Moment 
mit Computern in Verbindung bringen konnen, fast ausschliefa 
lich ein umfangreiehes Computerspielangebot ist* Beim Soft' 
wareangebot far Homecomputer haben mit Sicherheit Corn- 
puterspiele den grolken Anteil. jedoch 1st das keinesfalis nur 
negativ zu werten, denn im Spiel kann vieles schnelter, leiehter 
und besonders durch das vorhandene Interesse intensiver ge- 
lernt werden. Auf die Dauer werden die >dungprogrammieren< 





Bei den Erwachsenen jedoch lost die Computer welle ein Gefiihl 
des Unbehagens aus + »Schaden die Homecomputer unseren 
Schulern nicht? - Verlieren sie nicht den Uberblick iiber die 
verst: hiedenen Rechenarten, die ohne Schwierigkeiten vom 
Computer ubernommen werden konnen? — Kommen die 
Jugendlichen hierdurch nicht mit der Schule in Konflikt? - Sind 
die Computer nicht Feinde der allgemeinen Erziehung unserer 
Kinder ?« — Fragen die nicht unbegrundet sind! Jedoch sollten 
sich die Skeptiker such »vor Augen haken«, daft ein Pro- 
grammierer der ein Programm erstellen will, uber jegliche 
Einzelheiten, wie Rechenoperationen, voll informiert sein mu6. 
Er kann kein Programm iiber die verschiedenen Geometrie- 
arten, Differential- oder Integralrechnung erstellen, sofern er sie 
nicht beherrscht. 


das Interesse am Spielen mit dem Computer ohnehin verlieren 
und das was sie durch das Spiel gelernt haben, in den pra fa 
rise hen Teil wie Schule, Studium und Beruf verlegen. 

Beispiele hierfar sind schon heute in der Presse zu r Genuge 
bekannt ge worden. So haben Jugendliche mit 14 Jahren bereits 
Software-Firmen gegr under, die auf andere Namen eingetragen 
sind. Die Programmangebote dieser Scheinfirmen liegen durch- 
aus nicht nur im reinen Spielbereich. Audi hochwertige Pro- 
gramme sindhier von 14-Jahrigen ersteUt worden. Und obgleich 
diese Scheinfirmen am Rand der Legalitat >>vorbei\vackeln*, so 
mussen wir dennoch den Hut vor diesen »BengeIn« ziehen. Sie 
haben mit ihren jungen jahren nicht nur den Computer beherr- 
schen gelernt, sie nutzen ihn bereits in ihrem »Berufa 


Die Redaktion 



Computronic Bestellkarte-Cassettenservice 


Alle im Heft abgedruckten Programme konnen als zusatzlicher Service, zum Selbstkostenpreis, uber den Verlag bezogen 
werden. 

Die Zustellung erfotgt per Nachnahme, innerhalb von 14 Tagen! 


Achtung: Disketten konnen vorers t nur far : Apple 

‘ v - VC-64 

V 020 bezogen werden I 


Entnehmen Sie bitte a us unserer Preisliste Seite 66 die notwendigen Angaben for Ihre Bestellung: 
Bitte liefem Sie min EH Cassette fur EH Anzahl 

System 

I I Diskette ftir . EH Anzahl 

System 

zum Preis von gesamt : DM 


Name: 


Str afte, Nr. : 


PLZ/Ort; 


Untersch rift, Datum: 


>§ 


Kleinanzeigen in Computronic: nur gegen Vorkasse 

Bitte veroffentlichen Sie ab nachstmoglicher Ausgabe 

unter der Rubrik: EH Angebote EH Kontakte 

EH Gesuche EH Verschiedenes 


folgenden Text: 


Bitte javeils 35 Buehstaben pro Zeile! Bitte Absender nicht vergessen! 
Preis for Kleinanzeigen: 


Private Anzeige 
gewerbl. Anzeige 
Chiffregebuhr 


DM 4,50 je Druckzeile 
DM 8,00 je Druckzeile 
DM 10,00 je Anzeige 


Name: 


Strafte, Nr.: 


Vornatne: 


PLZ/Ort: 


Unterschrift, Datum: 


privat EH gewerbl. EH 

(bitte ankreuzen) 


Unser Kurs 


Programmieren in Forth Teil 1 


R Brail 
Liter atur: 

Zech Ronald ; Die Programmiersprache Forth 
Brodie Leo : Starting Forth 
E. Floegel; Forth Handbuch 

Vorstellung der Programmiersprache Zimmer Tom : Hes Ware 64 Forth Manual 


schorl ein^ Zeit in Basi c programmiert hat 5 wird wi s^|| dass es hin Lind 
wigdor Sac-hen gibt ? die nicht Oder nur recht schwierig zu prorainmieren 
sind = Fuer solrhe Faelle hat man bei grosser* Rechnern die Hoegl i chkei t suf 
anderE Bpracheri zuruec kgrei -Fen zu koennen=Es gibt FORTRAN tu.er 
mathemati sche Prob 1 err* I oeEungen 3 COBOL fuer k cummer zi el 1 e Zwecke 5 ASSEMBLER 
fuer zei tkri t i sche Auf gaben 5 Basi c fuer die allgemeinen Pr ob 1 e*nl oessungen 
auf Mi c r oc oiiip u tern un d ^ un d - un d a 

FORTH 5 das heisst soviel wie 51 Die Vierte" , gehoert zu der juengsten 
Generation von Pr og r amm i ersprac hen 5 wie der Name sc bon sagt 5 zur vlerten 
Generation. Man hat also ver such t alle Vortei I e von den bekannten 5 
renoflti erten Programmiersprachen in Forth zu imp! ementieren. o hne aber 
deren Fehler mit zu uebernehmen 

FORTH hat 5 schon in seiner Struktur* einige sehr mark ante Vorteile 5 die 
besonder s Lei den Mi cr gc omp u t e r n von Vortsi 1 sind“ 

D FORTH 1st auf fast alien Mi croc ompu tern implement i er bar und benoeti gt 
nur wen i o Spei cherpl atz 

2) FORTH Programme si nd wesentlich kuerzer als BASIC und ASSEMBLER 
Programme 

3) FORTH 1st in der Regel 10 ma 1 schneller als BASIC 

4) FORTH kann auch mit Kasset ten recorder betrieben werden * Vortei 1 haf t 1st 
ein Floppy Laufwerk natuerlich in jedem Fall n 

5 ) FORTH i s t p r ob 1 e m 1 os er we i t er b a.r 

6> FORTH— lf Hochspr ache n und FORTH— "Assembler iT laesst sich beliebig mi sc hen = 
7) FORTH erlaubt strut turi erte Programmi erung 

Forth 1st urspruengl i ch fuer die Frogrammi erung von Steuer ungsauf gaben 
entwickelt wurden.Da. die Sprache jedoch sehr leicht erwei terbar is t* kann 
man si e fuer fast aile An wend ungen verwenden.Durch das implement ieren 
einiger Braf i k-Bef ehle wind aus der Prozesssnr ache schnel 1 eine geeignete 
Sprache fuer Spiele und Graf i k-flnwendungen. Jeder kann FORTH urn die BefehXe 
erweitern ? die er fuer seine Anwendungen ger ade benoeti gt .= Trots 
zahlreicher Erwei ter on gen sind FORTH Programme sehr leicht auf elnen 
an d er en Rechner zu uebertragen - Fehl ende Befehle (NORTE) koennen einfach 
noch i mp 1 ement i ert werden * 

Ich hoffe mir 1st es gel ungen einige Vortei le von FORTH darzustel 1 en = In 
den fclgenden Teilen dieses Kurses werden Sie sehr i ttwei se mit den 
Eigenhei ten der Sprache vertraut gemacht* ^ „ r * * * beabsichtigt ebenf al Is 

regel mates si g Forth— Programme zu veroef f endl i chen a Es ist schade das bisher 
kau.m eine Zeitschrift naeher auf Forth eingegangen ist ? obwohl es sicher 
eine der I ei stungsf aeh 1 gsten Sprachen fuer Microcomputer ist und immer 
mehr Fr eunde findet= 




Unser Kurs 


Einleitung 


FORTH 1st ein vall 5 taendiges eel bstsendi ges Sprachsystem, da.s sow oh 1 
Compiler als auch Interpreter 1st und sein ei genes Bet r i ebssystem 
beinhaltet.Das besondere an' FORTH ist das in erster Linie mit dem "Stapel" 
gearbei tet wird.Wer schon einmal in Assembler programmi ert hat kennt die 
Arbeitsweise des Stapel s. Der Stapel ar bei tet nach dem LIFO-System Uetzte 
Einga.be erste Ausgabe) .Dies bedeutet das auf ihm etwas abgelegt warden 
kann und vieleicht spaeter wisder heruntergenommen . Forth besitzt zwei 
Stapel den Oaten— und den Returnstapei Auf die Funktion wird spaeter noch 
ei ngegangen. 

Die verwendung ei nes Stapel s waere an fuer sich nichts Neues.Jeder 
HP— Taschenrechnen verwendet einen Stapel zum Speichern von Zahlen, Das 
andersartige an FORTH ist das Wosrterbuch welches auch als Stapel 
ausgel egt ist. 

Die Sprache best eh t aus Worten, die nach ihrer Definition, das hei sst nach 
der Festlegung des sen 5 was das Wort bewirken soil, auf dem 
Def initionsstapel , dem Woerterbuch abgelegt werden.Bei der Definition 
eines Wortes koennen schon vorherige Definitionen verwendet werden.Ein 
Forth-Programm besteht also in der Regel aus zahlreichen Definitionen die 
sich gegenseitig aufrufen.Der Start eines Programmes besteht dann nur iffl 
Auf rut eines Wortes, 

ijm Woerter wieder zu loeschen benutzt man den E-efehl FORaET - 
Der Auf ruf FORGET TEST 1 oescht alle Worte, beginnend bei TEST bis zu.m 
obersten Eintrag in den Stapel -Das loeschen eines einzigen Wortes im 
Stapel ist nicht moeglich und waere auch nicht si nn vol 1 , Benn spaetere 
Definitionen koennten dieses Wort benutzen und waeren somit nicht raeht 
mppgl i ch . Es gibt auch die Moeglichkeit ein Wort mehrmals zu def inieren. In 
diesem Fall wird immer das zuletzt definierte Wort ausgef uert , Welchen 
nutzen dies hat wird in einer der naechsten Folgen besprochen, 

Berpchnungen erf ol gen in Forth ueber den Datenstapel den wir auch als 
STACK bezel chnen koennen. Da alle Operanden ueber den Stack gel ei tet werden 
ernibt sich die etwas ungewohnte Rechenschreibweise UPN OJmgekehrte 
Polnisehe Notation) -Auch die schon genannten HP—' Taschenrechner verwenden 
diese Art der Eingabe.Um bei spi el sweise die Zahlen 5 und 7 zu addieren 
muss folgendes eingegeben werden? 


in FORTH 


5 7 + 


in BASIC 5+7 


Nach Her Ei ngahe dieses Beispiels werden die beiden Summanden vom Stack 
geholt und addiert und das Ergebnis wieder auf den Stack geschr i eben ■ Man 
kann dies leicht ueber pruefen indem man sich das Ergebnis durch den Befehl 
ausgeben 1 asset, Der Befehl holt die oberste Zahl vom Stack und 

gibt sie auf dem Schirm aus-Ein nochmaliges Aufrufen des Befehles " . " 
bewi rkt eine Feb lor me 1 dung dar der Stack keine Zahl mehr beinhaltet- 
Wichtig ist das die einz einen Worte und Zahlen immer durch mindestens 1 
Leerzeichen getrennt werden, da der Computer sonst das Wort nicht erkennen 
kann. Nach erf ol greicher Ausfuehrung eines Wortes meldet sich der Computer 
mit "OK", dies entspricht in BASIC der "READY” Meldung. 

FORTH ist eine sehr nachsichtige Sprache, A1 les, was eingegeben und nicht 
direkt als falsch erkannt wird, wird angenommen und eventuell sogar ins 
Woerterbuch eingetragen- lian darf also nicht blind lings dar auf las 
pr ogr ammi er sn 3 son der n man sol 1 te sich einigermassen ueberlegen, wa_. und 
uji 0 man es pr og r asM i er t = 


Pnmni tlhnnnir 


Unser Kurs 


der Beschreibung des ^oerferbuches und der Operationen mit dem 
Stapel spei cher (Stack) warden Bezel thnungen verwendet 5 wie sie im 
Installation Manual tuer FORTH -festgelegt sind.Diese Bezel chnun gen soil ten 
Bie si c h einpraegen da sie at* c h in den kommend en Fq 1 g en d i ese s Kur ses 
i wieder yerwiSrsdet werd6D = 

D i ese Bez ei chn Lin g en s i n d “ 


sdr 

b 


d 

f 

n 

u 

< RETURN > 


Spei cher adresse 

0 bit Bvte (die oberen S Bit eind Null) 

7 bit ASCI I“Zei chen 

37 bit doppelt 1 anqe Festkommazahl mit yorzeidisn 
Boal 3 sche Variable 0= " false ' 1 (falsch) 

16 bit Zahl mit Vorzeicben 
16 bit Zahl ohne Vorzeicben 
RETURN Taste 


Bei der Beschreibung eines Wortes wind kuenftig -folgendes Schema 
angewendet * 

NORT < RETURN > Anzeige des Computers (Stapel Vorher — -> Stapel Nachher ) 
KOMMENTAR 


Be i sp i el “ 

< RETURN > OK (n 1 n2 n3 — > nl n 2 ) 

n 3 wird auf dem Bildschirm ausgegeben 

Ni e Si e schon wi let 11 eine Forth An we i sung die die oberste Zahl des 

Stapel s auf dem Schirm ausgibt.Dies 1st also die Pri nt— Ahwei sung - Vor der 
Ausf uehrung des Bef ehles bef i nden si ch 3 Zahl e n n 1 ^ n 2 ^ n-_> i#n 

Stapel spei cher = Bavon 1st die am weitesten rechts stehende Zahl im TOS (Top 
of Stack) , In dieses Fall also n3.Naeh der Ausf uehrung des Befehles sind 
nur noch zwei Zahlen <nl ? n2) im Stapel wobei nun n2 an oberster Stall e 
st eh 1 3 

Urn noch einmsl die Funktion des Stapels zu verdeutl ichen gehen Sie bitte 
folgendes Bei spiel ein = 

i 2 3 4 5 6 < RETURN > OK (empty — > nl n2 n3 n4 n5 n 6 > 

Die Zahlen 1 bis 6 wurden nacheinander auf den Stapel gelegt.Um sie wieder 
sbzuruf en geben Sie folgendee ein* 


< RETURN > 

6 

OK 

(nl 

n9 n 3 nFi nA > nl n2 n3 n4 n5) 

,< RETURN > 

5 

OK 

(nl 

n2 n3 n4 n5 > nl n2 n3 n4J 

< RETURN > 

4 

OK 

(nl 

n2 n3 n4 — ’> nl n2 n3) 

< RETURN > 

3 

OK 

<nl 

n2 n3 — > nl n2> \ 

< RETURN > 

2 

OK 

(nl 

n2 — > nl) 

< RE TURN > 

1 

OK 

(nl 

— > empty) 

e aus dem Bei 

sp i 

el z li 

er k 

ennen ist^erden die Zahlen in der Ltmgekehrten 


Rei henf ol ge ausgsgeben = Natuerl i ch i si es gl ei ch oh man den 11 , 11 Bef eh 1 
einzeln mat RETURN quitiert oder nur durch ein Leerzeichen trennt, 

< RETURN > 654321 OK 

\ lit dieser Einfuhmng in das STACK-Konzept mochten wir Teil I abschliefien. 1m nachsten Heft stehen die Arithmeril: -Opera- 
no nen im Vordergrund 


Tips + Tricks 


Sind vorhandene Cassettenrecorder fur Computer benutzbar? 


Grundsatziich kann man sagen, daE die Verwendung eines her' 
kommlichen Cassettenrecorders als Datasette moglich 1st, wemv 
gleieh fir den Betrieb ein Suterface, zur Anpassung an den 
Computer, notwendig ist. 

Jedoch werden an den Recorder bestimmte Ahforderungen be- 
treffend des Gleichlaufs und des Frequenzganges gestellt, die 
haufig von diesen Geraten nicht eingehalten werden. Der 
Recorder sollte keine automatische Aufnahme haben, da dies 
einen absolut zuverlassigen Betrieb nicht gewahrleistet* Hinzu 
kommt, daft die Cassettenrecorder nicht mit der Motorsteue- 
rung und der Abfrage der Aufnahme- und Wiedergab e tas ten 
betrieben werden konnen, was das ganze Eingabeverfahren 
kompliziert, Der Betrieb mit Datasette ist also »bestimmt« 
bequemer und sicheren 



Vorteiie eines Resetschalters am VC-64 


Anfanger, die mit der Maschinensprache experiment ieren, 
haben haufig das Problem, daft sie ein fehierhafies Programm 
eingegeben haben und der Computer aussteigt. 

Wer diese Eingabefehler >>richtig<< macht, der wird vergebens die 
RUN'STQP und REST ORETaste drucken. Er mufi in diesem 
Falle den Computer ausschalten. Hierdurch wird jedoch der 
gesamte Speicherinhalt gelbseht, das Programm muE neu ein- 
gegeben werden, was einen meist gr alien Zeitaufwand erfordert. 
Mit einern kleinen zusatzlichen Taster kann der VC-64 in den 


Ausgangszustand zuruckversetzt werden, ohne dafi der Spcicher- 
inhalt veil geloscht wird. 

Man benotigt hierzu einen User-Port-Stecker und einen Taster. 
Der Taster wird auf die Kontakte 1 und 3 des Steckers gelotet 
und das Ganze nun auf den User-Port aufgesteckt. Sollte nun 
der VC-64 beim Programmieren einmal »absturzen«, drucken 
Sie einfach auf Ihre Taste und Ihr Computer ist wieder 
betriebsbereit. 


Mbglichkeit zur Steuerung verschiedenster elektr. Gerate 


Zur Steuerung verschiedener elektr. Gerate ist der User-Port auf 
der Riickseite des VC-64 geeignet, Es stehen hierfur 9 freie 
Leitungen zur Verfigung. Die Steuennoglichkeiten sind mit 
diesen 9 Leitungen jedoch sehr begrenzt, denn um grofiere 
Steuerung der Computer vorzunehmen, benotigt man mehr 
Ein- und Ausgabeleitungen. Solche zusatzlichen Leitungen 


konnen jedoch mit weiteren 6526 bzw, 6522 iiber die Expan- 
sions-Sch nittstelle erretcht werden. 

Naturlich lassen sich uber den User-Port auch andere Schal- 
tungen erzielen. Dies fangt beim Einschalten Ihrer HiFi-Anlage 
morgens an und hort erst bei (ja, wobei uberhaupt?) auf. 


C-64 als Speicheroszilloskop 


Diejenigen, die einen C-64-Computer besitzen, konnen ihn nun 
auch als Speicheroszilloskop benutzen. Die grafische Darstellung 
aperiodischer oder einmaliger Mefivorgange, wie das Prellen 
eines Relais sind durch ein Interface der Firma Print-Technik 
moglich. Da die Messung einer Spannungsanderung ein ana- 
loger Vorgang ist, der Computer jedoch nur digitale Daten 


»versteht«, ist es fur den Computer nicht moglich, diese Daten 
direkt zu verwerten. Deshalb wird die MeEspannung mit einem 
Analog/Digitalwandler in einen digit alen Wert zwisehen 0 und 
255 umgeformt. Auf Wunsch wird die Kurve mit Raster darge- 
stellt. Einsatzmoglichkeiten, die sich durch dieses Interface 
bieten sind vielfaltig. 









Aktuelles 




Kurz notiert 


Utopie oder Wirldichkeit? 

Der amerikanische Film »Ware Games* beschreibt, wie ein 
Oberschuler aus Zufall den Code des geheimen Rechenzen- 
trums der US-Luftwaffe knackt. Fast lost er mit seinen Spiele- 
reien den 3> Weltkrieg aus. 

Daft dieser Film mitderweile nicht nur reine Utopie ist, laftt sich 
aus mehreren amerikanischen Beispielen erkennen. Hier bauen 
sich Schuler automatische Anrufanlagen, die ununterbrochen 
verse hiedene Nummern duchwahlen bis eine andere Computer- 
anlage erreieht wird* Dieser Code-Teil wird dann vom Com- 
puter automatisch gespeiehert. 

Auf diese Weise gelang es einem 14-jahiigeri »Hacker« aus den 
Staaten in die Datenbank des US-Verteidigungsministeriums 
einzudr ingen. Die Briider Greg und Gary Knutson fanden mit 
ihrem Computer Einlaft in das geheime Datennetz der US- 
Weltraumbehorde NASA. 


Wer ein Rechenzentrum anzapfen will mufi schon ein Profi sein. 
So lernen in den Staaten die Kinder mm Beispiel schon in der 
Grundschule den Umgang mit den Computern und mancher- 
orts warden ganze Computer-Feriencamps aufgebaut. 

In der BRD gibt es etwa 300 000 Heimcomputer, in den Staaten 
sind es iiber 1 600000* Die US-Jugendlichen haben in der Regel 
das Wissen zum Umbau ihrer Computer, wodurch Sie dann in 
Rechenzentren eindringen konnen. Hierzu kommt noch, daft in 
den Staaten mehr offentliche Rechenzentren zur Verfiugung 
stehen, bei denen die SIcherheitsbestimmungen vernachlassigt 
werden* Hs ist leichter an Telefonnummern her an zu komtnen. 
Bei uns sind die » Hacker* noch auf Informationen von Mit- 
arbeitern der Rechenzentren angewiesen. Jedoch haben sich in 
einigen Groftstadten schon Schwarz-Markte fur diese Informa- 
tionen geblidet* 






NEWS 


Drucker: Seikosha GP-100 VC/VC 1525 


Der Seikosha GP-dOO VC und der VC 1525 werden in Japan 
produziert und sind zwei vollig identische Drucker die sich 
, lediglich durch das Typenschild unterscheiden. 

Eine simple und robuste Mechamk, die geting^Storanfalligkeit 
erwarten lafit 1st besonders zu bemerken. Der r’elativ niedrige 
Piets lafk naturlich keinen Vergleich mit einem Hochleistungs- 
drucker zu, da der VC 1525 nicht zu den schnellsten gezahlt 
werden kann. Suchen Sie jedoch einen Drucker der seinen 
Dienst storunanfallig verrichtet, so werden Sie mit diesem Gerat 
zuftieden sein, 

Techn. Daten: 

- 7 x 7 Punktmatrix 

- 80 Zeichen/Zeile 

- 30 Zeichen/sec. 

- Papier inkk Transportloc.hu ng 24 cm breit 

- Transport durch Traktor 

- HbRes'Grafik und Zeichen (einfach und doppelt breit) 
innerhalb einer Zeile mischbar 

- Druckposition zeichen- oder punktwetse ansteuerbar 

- Druck von Reverse-Zeichen 

— Anschluftferdg for VC-20 und C 64 

- Stand ardmafiig alle Symbole und Graflkelemente des 
VC-20 und C 64 









Micro-Speech lafk Ihren ZX-Spectrum sprechen 



Dieses Zusatzgerat for den ZX-Spectrum ermoglicht es Ihrem ZX 
das Sprechen beizubringen. Laut Hersteller 1st dies durch ein- 
fache Sprachbefehle, die dem Wortlaut sehr ahnlich sind, 
moglich. 

Dieses Zusatzgerat ermoglicht es, alle ihm eingegebenen Worte, 
uber den Fernsehlaursprecher, auszudrucken. 

Das einzlge Problem, was bei uns wohl auftreten wird, ist das 
Problem der Aussprache, da im englischen das »E« wie unset 
ausgesprochen, was nur ein Beispiel sein soil. Es wird momentan 
alien deutschsprachigen wohl nichds anderes ubrig bleiben, als 
sich der » englischen Sprache zu ermachtigen<<, die Tone ins 
deutsche abandem und das Ganze als eine deutsch-englische 
Gemeinschaftssprache zu verwenden. 





Mochten Sie als Software-Autor 
fur dan TRONIC- Verlag tatig werden? 


Wir wiirden uns freuen, in Ihnen einen Ansprechpartner for eine kiinftige 
intensive Zusammenarbeit zu linden. Der TRONIC' Verlag vereinbart mit seinen 
kiinftigen Software-Autoren pro veroffentlichte Seite (einschl. Programm- 
beschreibung) ein Honorar von DM 120, — * 

Dieses Entgelt wird fallig, wenn die Redaktion des Verlages sich for eine 
Veroffentlichung entscheidet. Die Auszahlung erfolgt also nicbt erst nach 
Veroffentlichung in einer unserer Ausgaben sondern wesentlich fruher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) zur 
Darstellung im Heft heranzuziehen und abzudrucken. 


Einzusenden sind: 

- Programmbeschreibung und Programmflufiplan 

- bespielte Cassette oder Diskette 

- Listing 

mit Copyright, 

- Freiumschlag 


Haben Sie Interesse? Haben Sie noch Fragen ? 

Setzen Sie sich telefonisch mit unserer Redaktion, 

Frl. Herwig oder Herrn Beck, 

in Verbindung! 


TRONIC'VERLAGSGESELLSCHAFT mbH 

DIE REDAKTION 




ZX-81 


Gun-Man 



Zwei kleine Spiele fur den ZX-81, die vie! Geschicklichkeit erfordern und iiber Tastatur gesteuert werden konnen. 



Gun-Man: 


Invader: 


Sie steuern I hr Raumsehiff dutch das Wei tall* Aber Achtung; 
ein Meteoritenschwarm kreuzt Ihven Reiseweg. Versuchen Sie 
geschickt auszuweichen. Irgendwann kommen Sie in eine Ihnen 
fremde Galaxy, Ihr Raumsehiff wird langsamer (kontrollierter), 
das Raumsehiff kann den Meteoriten besser ausweichen* 

AIs Spieler konnen Sie jetzt viele Punkte einbr ingen. Versuchen 
Sie die Punktzahl von 150 zu erreichen. Auf dem Bildschirm 
leuchtet dann »Rekord« auf* Sie sind am Ziel und haben die 
Hochstpunktzahl erreicht* 


Versuchen Sie, ein fremdes Wesen das auf Sie zukoinmt, von 
sich fernzuhalten. Sie haben nur eine begrenzte Anzahl von 
Schussen und miissen mit der Munition sparsam umgehen* 
Gesteuert wird iiber die Tastatur: Q = hoch, A - tief, »P« ist die 
Feuertaste. Das fremde Wesen kommt von rechts, also 1 assen Sie 
sich nicht uberraschen* Nach Spielende entscheidet die Rest- 
menge der Munition* Wer den Angreifer mit den wenigsten 
Schussen eleminieren kann, 
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IF G=5 THEN GOTO 240 
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IF V == 3 THEN GOTO 50 
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GOTO 90 
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330 CL S 
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350 IF INKEY £ = " T 
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VC-64 


Mauern fur VC-64 


Das auch kurze Spiele interessant sein kannen beweist das Spiel 
»Mauem« fur den Commodore 64* 

Dieses Spiel ist for 2 Spieler gedacht und benotigt deshalb 2 Joy- 
stick’s* Nach dem Starten erscheint auf dem Schirm ein Laby- 
rinth in dem viele Stemchen verteilt sind. Ziel ist es moglichst 
schnell viele Stemchen einzusammeln. Um dem Gegner das 
Einsammeln zu erschweren, gibt e$ die Moglichkeit mit dem 


Feuerknopf Mauern zu ziehen, Man sollte jedoch aufpassen, daft 
man sich nicht selbst einmauert. Nach einer bestimmten Zeit, 
welche angezeigt wird> endet das Spiel mit der Bekanntgabe des 
Gewinners. Das Spiel wird durch kraftige Sound-Gerausche 
unterstutzt, 

Wer einen Basic-Compiler beskst kann die Spielgeschwindigkeit 
noch erhohen und besitzt somit ein sehr lustiges Partyspiei. ■ 
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lPft|lHT B ".:-:lW‘ *t- ■»£ -M- -** 3* ** -M- -M* “K“ 'Mr M 4* 4* » “» **■ -* SjKS* : ' 

H jjr ^ l |" J 

i r: iht* " ^ “ " ; 

ii £ T URH 

REM -k-m- 3* SOUW!> wnwe-M- 
P OK E S X + 4 ,0: POKE SI+5, 0 

P o K E SI+1 , 2 O = IP 1 O IK E S I + 2 4 , 1 5 ■■ P O KES I + 5 , J. (5 + 9 : POKE S I + 6 .,. 


POKES l +4, M! 
670 RET OR H 




e S 0 R E IM G E H X HHER E R IMS I T T E E IM 


G 9 0 
1' O 0 
T .1. 0 
T 2 0 
?3 O 

Y 40 

Y 5 0 


P O K E 2 1 i. , O 
X F S 1, > S 2 M E M 

IF SI.CS2 THEM 
IF S i=S2 THEN 
POKE 1.9 8,, 0 
OFT E5 : j[ F E5 = ' 
GOTO 1 4© 


PRINT" LiS P I E L E R I. II A T G E S I E G T 
p R I M T * '{J! SP IE I,- E R 2 H A T G E S X EG I 
PR I NT" "a UHENTSCHIEPEN .! 

’“"THEN 7 40 


REflPV 


Rnmni ifrnnJr 1 


VC-64 


Widerstand 


Widerstand, ist ein nutzliehes Hilfsprogramm for den Hobbybastler oder den, der es werden mochte. 


Das Programm kann 4 verschiedene Berechnungen durch- 
ftihren, Die erste Funktion ermittelt nach Eingabe eines belie- 
bigen Widerstandswertes den entsprecbenden NornvWtder- 
stand* da bekanntlich nicht alle Widerstandswerte hergestellt 
werden. Das Programm beziebt sicb dabei auf die gebrauclv 
lichste Norm-Reihe E 12. Gleithzeitig werden die Farbringe des 
Widerstandes mit den entsprechenden Farben gekennzeichnet. 


Die zweite Funktion leister das umgekehrte, sie ermittelt den 
Widerstandswert durch die Auswertung der Farbringe, 

Die dritte Funktion ermittelt den Ges amt wider stand von einer 
belidbigen Anzahl parallel geschalteter Widerstande,. Mit der 
vierten und letzten Funktion kann ein Vor widerstand fur einen 
Verbraucher berechnet werden. 


» MIDERSTAND * 
** BE I F.BRALL ** 

X-XX X M M X M X M X X XXKM 


A REH 

2 REH 

3 REH 
-4 REH 

5 REH 

6 REH 

S GOTO300O 
AO PRINT CHR^ti4?) 

PRINT'Tu E-12 FBRBCODF" 

PRIHT"[3 

PR IjN T BMI 
PRINTS 


20 

25 

30 

32 

33 
3-4 
35 
38 
-40 
50 
±00 
104 
110 
AA5 
150 
200 
205 
210 
2±2 
214 
220 


Vi 

*13 

in 


PRINT ” 

PRINT ” 

PRINT " 

PRINT ” ” 

PRINT - PRINT : PRI HT^C WIDERSTAHDS I4E R T IN OHH “V 
INP0T”” * O 
READI4 

|FM=0THEMN=M: 6010210 

T FH>0 THEM200 

H=f4 

O0T0100 

IF <0-H>C<i4-O>THEN H=M=GOTO2±0 

N = I4 

SS = ,B OHH” - HO ~ H 

I FH>999990THE N H = H/1000O08 = S$^ IE MEGfl OHM" 
irH>990THEH H=N/I608 - — KILO OHM” 

PRINT = PRINT : PRI.MT II l|DER HORMI4I DER ST AMDSHERT 11 


PRINT: PRINT 11 


BETRftEOT 


‘N ; 


230 

IF 

< MO/10000000 > > O 

2-4© 

IF 

<MO/1000000) 

>o 

25© 

IF 

C H© /A 00800 > 

>0 

260 

IF 

(MO/1G000) 

>0 

27© 

IF 

< HO/A 08 0 > 

>0 

280 

I F 

< HO/100 > 

>0 

230 

IF 

< MO/10 > 

>0 

295 PRINT ; PRINT "-HER 

T - RUN 

300 

ST$ 

=STR$ < MO) 


3±0 

W±S 

^MIDSfST?, 2 . 

A > — 


S9THEHF3=6 

99THENF3=5 

39THENF3=7 

99THENF3-8 

39THENF3=2 

99THENF3=9 

99THENF3=0 


MO = S10/1000000 = 8OT0300 
M0=M0/100000:GnTO300 
HO — MO/10000 - G0T0300 
HO = MO/1000 = G0TO3O0 
H0=M0/100 = G0T0300 
M0=MO/10 - GOTO300 
GO T 0300 


320 IFM2S=”0” 

330 IFI42S = ”A” 
3-40 I F 142 S = “ “ 2 
350 IFI42S = ”3" 
355 IFI42S = ”-4” 
360 IFI42S = ”S” 
365 IFM2^=”6” 

370 IFM2S-”T” 
375 I F!42S — " "8 "■ 
380 IFW2S="3” 

-400 I FW1$ = I, 0" 
-4AO IF4l±5f-"±” 


THEHF2=B 
THENF2-9 
THENF2=2 
THEHE 2—8 
THENFZ^T 
T HENF 2 — 5 
THENF 2— G 
THEHE 2 — -4 
THEHF2=12 
THENF2=1 
THENF 1—0 
THENFA^S 


IST ZU KLEIN ! ! ! !G" - FORI=1TO20O0 - NEK 




on 


Pnimni rFnn^ii 




VC-64 


-420 

I FI4±^ = B1 2"- 

THENF1=2 

-430 

IFI4A£ = ""3" 

THENF1=8 

-4-40 

IFWAS = -, 4" 

THENF ± = T 

-450 

I FWl$- ,, 5" 

THENF ± = 5 

-460 

IFI4±^"6" 

TNENF 1=6 

478 

I FW±$ = ,, 7 M 

THENF1-4 

-4S0 

iFyi^= ,, 8” 

THENF 1=12 

■490 

I FI4± ^ — 9* 1 

THENF 1=1 

5 00 

REM FARBE ZEICHNEN 

5±0 

POKE55505 , 

FA - P0 KE55545 f 

520 

P0KE55587 

, F 2 = POKE555 47 


Fi - POKE55585, FA 
F F2 - POKE55587 , F2 
5 30 POKE55509, F3 = POKF55549 > F3 = POKE55589, F3 

G0O POKE198 * 0 

605 PRINT ^PRIHT - PRINT" “F II ER "NEUSTART" TASTE 
818 MAIT283,G3 
TOO RUN 

933 REH wkk HORH REIHE FI? mmk 

1O00 DA TO 10 J 12,15 J 18,22 J 2? J 33 J -39,47 J 56 i G8,82 J I00 


DRUECKEM” 


12B # 150, 18 


2200, 2700, 3360 


T9, 27E3, 33E3 


!76E3 


6 . 2 20 * 270 , 330 ,390 

±00 2 DATA 470 ^ 56G ^ SBO, 820 f 19O0, 1290, 1580, i860 
* 33 0 0 # 47 O O 

±0 0-4 DATA 5600 ? 6898, 8288, 10E3, 12E3 , 15E3 , 18E3 * ; 

39E3, 47E3 

±005 DOT A 58E3 , 68E3, 82E3, AOOF3 , 120E3 f ±50E3, 188E3, 22BE3 , 

_ 330E3 . 3 3@ E 3 

±0O6 DATA 479E3, 5S8E3 , 880E3, 826E3, 1EG, ±,2EG,l t 5E6 r ± . 8E6, 2 = 2E 

8.2 = 7E8, 3 ? 3E6 * 3 , 3F6 

±097 DATA 4= ?E6 * 5 * 0E6 , 6 * 8E6 , & * 2E6 , lOEG, 12E6, ±5EG , 18EG , 22EG, 8 
REM EARBE.N — > I4ERT 

PRIHTCHRS C ±-4T > 

PRINT: PR I NT”;1 141 DERSTANDS ERHI TTLIING" 

PRINT 1 ^ — " 

PRINT : PRINT "RFARBCODE = ■■ 

PR I NT’" m " 

PRINT’- 

PRINT - " *“ — " 11 

PRINT * a C O A 2 3 41 5 6 T 3 9 1R 


2000 
2818 
202 O 
2030 
2849 
20-45 
2050 
2055 
206O 
2070 
208O 
203O 
2±O0 
2±±0 
2±20 
2130 
21.-40 
2156 
2 155 
21 G 0 
21G5 
2170 
21.75 
2180 
2190 
2200 
2202 
2203 
2210 


PRINT ; PRIST - PRI.HT : PRIMT"FftRBC0DE UOH RING ± ?' 

GETE$ = IFE$ = ,I "THEN2080 

ST$=ES 

FRINTE5 PRINT’TARBCODE UOH RING 2 

GETE5 - IFES- ,,, ’THEN2110 
STS=ST$+ES :W=0AL(ST$) 

PR INTE$ : PRINT"FARBC0DE UOH RING 3 ?"; 

GETE$: I EE$=""THEN2±40 
irE$ =,, 0"THEN 2200 

IFE$="1"THEN H=WMi0:G0TO2200 
irES=“2“THEN W=W*100:G0T02200 

W=M»1080 - GOT 02200 ^ 

M=Rwl0000 : G0T02200 
M=H«100000 - G0T022B0 
w=w*ti 000008 = G0TO2200 


IFES = ”3‘‘THEN 
IFE§- ,, 4 ,, THEN 
IFES = ,, 5 ,, THEN 
irES="G"THEN 
GOT02140 

PRINTED :S§=" OHM” 

I EM>999999THEN W=I4/1000000 - SS=" MEGfl OHM” 

1 F t|> 999THEN M=M/1000 ; SS=" KILO OHM" 

PRINT; PRINf’aDER WIOERSTAND"; PRINT - PRINT" 

T " H.SS 

2220 GOTO680 

250O REM * **** PflRALLELE WIDERSTAEHDE 
2510 PRTNTCHR$(147) 

2520 PR I NT"n PftRALLEl. — SCHftLTUHG" 

2530 PRINT"ra — 


BETRAEG 


VC-64 


25*40 PRINT - PR* NT = PRINT 11 :! Rl" TORN * OttMDEr DU £ 1 ** 

: print 

Z= JL KR-R:^“fl 

2560 FRINT"C MI&OESTftMD W Z" C 
2570 I NPUT ! "' ; R 

2575 IF|<=0THEHI4-<I/6R> S$ = !! OHM 1 60102202 

2580 8R-GRX1/R) :Z = Z*J_ . R = fl : GC i‘02568 
2 8 w% fp R _T 5^ W! Mi M ! J »3 R *4 I 0 T 5c.. J ft N G St-i£-s*£ 

2616 PRlNTCMR$<i47> 

2620 pRIHT^n PRMI TTL8HG DES MORMI ft'ERSTftH&E S a! 

2633 PRTlir-g | * 


2643 PR I NT 1 ^ 11 - 


2658 

2660 

2673 

2G75 

2680 

2685 

2696 

2709 

2710 
2720 
2730 
2743 
2750 

aeon 

3000 

3010 


PRINT*" UORyiD£RST0KD ,B 

PRINT” 3t 

PR I NT " i M !" 

PRINT" i I" 

PRINT" SPAHNUHG ij UERBR AUCHER" 

PRINT" I I" 

PRINT" L |" 

PRINT 

INPUT"BETRI IBSP60HHUNG O " = II 

INPUT" BETRI EBSP0HNUN6 DES UERBRAUCHER6 *• = III 


I NPUT"STR0MAUFN 0HHE DES UERBRAUCHERS ”;I 
RU=<U“Ut >/! : P~ <ij Lit > J*T 

PR I NT = PR I HT IB ’JERFORDERL I CHE LEISTUfiG- ”P ,a 14 ATT " 
S$-‘“ 0HH" ■ !4“Rif - 00T02202 
REH HAUPTHEMIJF MKM 

PRIHTCHRS<147 > 


3026 PRINT 1 ^ TIIDERSTftEND E" 


303B 

3O-40 

3350 


PJc I W 

PR I HT b, 3 

PRINT - PRINT* B CE 0LGEHDE 


<C> BE I FRANK BRAEE" 
FUNKTIONEN STEHEH ZUR MAHE 


NT 

3060 PR!HT ,B :1I - F ARBC0DE ERMI TTELN CEiZ) 1 ' - PRINT 
3070 PRINT "2 — MIDERSTRND FRUITTEEN" - PRINT 
3000 PRINT "3 — PARALLEL E 141 DER s Tft END E " PR I N T 
3030 PRI«T ,a 4 UORMI DERST6ND E RITI FT FEN" 

3180 PRINT -PRINT - FR I HT M UMELCHE EUNKTIOH 3 "j 
3110 0ETE$ r I FE$= MBi THEH3!10 
3128 IFE$ = ,B 1 B, THEH 18 
3139 IFE$-"2 IB THEK 20 00 
3146 i rr$_ 1 '3 ,, THEH 25 83 

3150 I FE$- ,E 4"THEM 2666 
3208 GOT O3110 
RE60V * 


P 1 a 


- PRI 



j_ + j_ + ^ 

Rges R< R t R i 


pn 


VC-20 


»Saurer Regen« 


Fur unsere VC-20 Freunde haben wir drei kletne Programme 
ausgedruckt, die leicht einzugeben sind und sicherlich gefallen 
werden. 


»Saurer Regen« \ 

Retten Sie den Wald! 

Es fangt leicht an zu regnen. Die Baume werden vom sauren 
Regen angegriffen und zerstort. Der Wald kann jedoch geretret 
werden. Versuchen Sie, herunterfaUende Regentropfen aufzu- 
fangen, bevor diese die Baume erreichen. Fallt auch nur ein 
Tropfen auf den Boden ist das Spiel aus ! 

In dieser Grundversion kann unter 9 verschiedenen Schwierig- 
keitsgraden gewahlt werden. 

L = neues Spiel 
R = neuer Schwierigkeitsgrad 


49 REN $###&&$$ ## if#.#*###*# 

50 RE 11 # QURDRRTISCHE OLE I CHUNG % 

51 REN * 1983 BV HART NUT WEBER T 

52 REM * FUER RLLE VC-28 VER3I0NEN* 

5 3 R E M V $ % * * % $$$# % # # $ $$ $ % % 

pip prihT'M" 

l m pr i nt" M 

1 l & P R I NT " SfcLOESUNG QURDRfl T 1 SCHER " 

111 PRINT" S# GLEICHUHGEN *" 

1 1 3 PR I NT 11 »*BV*HRRTMUT*WEBER« " 

128 PRINT 

138 PRINT" MK + P#X + Q = 8" 

132 PRINT" 

140 PRINT -PRINT : PR I NT ■ 

150 INPUT !I P = ";p 

160 INPUT 11 MQ = "IQ 

228 PRINT: PRINT 

238 Rss-R/2 - B=fl*fl-Q 

380 IF B=0 THEN 580 

310 IF BCG THEN600 

480 PRINT "SKI * ";R+ SQR <B> 

418 PRINT "KKl - ";R-SQR <£> 

420 GOT 0708 

508 PRINT "SKI = X2 « " ; fl 
510 GGTO700 

600 PR I NT " M3KE I HE REELLE LQESUNG ! ! H“ ; 
700 PR I NT "MSI mm - STGPP"' 

750 PRINT" awa = NEUSTRRT" 

768 GETR$ = IFAf = "S " THENENB 
770 IFR$- M N !, THEN80 
1000 GGTO760 


»Hangman« 

»Hangman« ist die dt. Version des bekannten Galgenmannchen- 
spiels. 

Der Computer verftigt im Spiel iiber einen bestimmten Wort- 
schatz wie Tiernamen, Lander-, oder Stadtenamen, Auto- 
marken usw. Treten Sie nun gegen den Computer oder einen 
Mitspieler an und erraten Sie einen Begriff. Haben Sie das ge- 
schafft, driicken Sie die Leertaste und raten weiter. 

Der Wortschatz des Computers kann beliebig bis zur Speicher- 
grenze erweitert werden. Der letzte Begriff muff jedoch immer in 
Zeile 4010 stehen. 

»Quadratische Gleichung- 

Wer gerade im Mathematikunterricht Gleichungen losen muff 
kann mit diesem Programm richtige Ergebnisse erfahren. 
Hausaufgaben per Computer, versuchen Sie es mal, es funk- 
tioniert. 



REiBV. 




VC-20 


1 REM 

2 REM COPYRIGHT BY HRRTMUT WEBER 

3 REM 

4 REM GV * 1 ,i 7KRRM 

8 REM 

9 REM KEIN LISTSCHUTZ 

10 REM ¥ :¥■ 3 ft U R E R - R E 0 E N * * 
12 REM 

14 REM FUER VC-28 OHHE ERNE I TERUNG 
16 REM 

20 P R I H T 1 11 SO" ; P 0KE36879 ,110 

22 PRINT")®! I ~ i 11 

24 PRINT" 1 kSflURER-REGENH I" 

26 PRINT" i J aft 

23 PRINT"® 1983 BY 


29 REM ! !#COPYRIGHT#! ! 

30 F'R I NT 11 BJHilil / = RECHTS" 


HRRTMUT WEBER" :REM 7920 HE I BEN HEIM 


PRINT"MWI 


LINKS" 


34 PR: I NT 11 hjgs C H M IERIGKEI TSGRflD : < 9 = L E I CHT , E I R 1 =SCH WEP > " 

35 INPUT"??".: P 

36 I FPOyuRF'O 1 THEN35 

38 PR I NT " )slf!l » 11 : DO T 040 

39 PR I NT" Mem'iSBMBJf * 1U B USETRRTBERE I T ! B" 

40 GETR$ : IFfi$= ,r "TI4EN40 

45 P0KE368/8, 1 4 ■ POKE650 .■ 1 28 : 82=36875 : 83=36876 : P0KE36S79 . 94 
50 PU=0 ; 0=2332 

1 00 PR 1 NT " T ; : FOR I =38848 T03886 1 : POKE 1 , 2 : NEXT 

118 P OR I = 388 62 T 038883 : POKE 1,0; NEXT = F0RF=8 1 42T03 1 63 : POKEF , 88 = NEXT 

111 IFP>5THEN138 

112 PRINT "3n It II I I I I I II 

f l " ; 

113 PRINT" I I I I ( 1111 I i 1 


I I 


114 PRINT" 1 


I 


I 


I f 


130 F ORE =38 8 8 4T 038905 : POKEE , 2 : NEXTE : F0RR=8 164T08185 : POKER ■ 1 02 ; NEXT 
150 W=8I32 ; POKEW, 3@ 

190 REMEMBER 

1 95 PGKES3 , U : V= I NT ( RND C 1 > £ 1 6 > +7634 
197 fl=V+<INTCPU/P>#22) 

200 REM 

2G5 PR I NT " : imil" ; pi I 


210 F OR I = 1 TOO ; NEXT ■ 0=8 : P 0 KES3 ,227 


>28 POKER, 32 = Fl=:ft+21 
230 I FPEEK < R > ~30THENPU=PU+2 ■ POKEW , 30 •' GOTO 1 90 


240 I FPEEK 1 ft > =88THENFU=PU- 1 : POKER , 32 : GOTO 1 98 


250 I FPEEK < H ) -■= 1 82THEN2080 
260 POKER, 93 : POKEW, 38 ; P0KES3 , 0 


300 GETR$ : I F fl * = " *' THE N 1 080 
318 P0KES2, 195 
320 I Ffi j= " K " THEN350 
330 1FR$0"Z" THEN 1000 
3 35 I F P EEK C 3! 1 2 3 > = 38THEN 1 000 
3 40 P 0 K E N , 32 : W = W- 1 : G 0 T 0500 
350 I FPEEK < 8 1 46 > =30THEN 1 000 
352 POKEW, 32 = W=W+1 : GOTO500 
508 REM 130910132+' 

800 POKEW, 30 

1S00 P0KES2, 0 = GOT 0200 

1999 REM #ENDE* 



2000 PRINT"»«»*K OH ME OVER *fWlHHMMBB«|— > BL/RS" 1 : P0KES2, 0 : PNKES3 ■ 0 
2 820 I FP U>H I THENH I =PU : PR I NT 11 a» VPB B B B IENEUERSMII BBflEH I GH-BSBSB ■ UM 83C0RE1' 1 
2050 GE Tfl* : I FRf = " R " T H ENPR I N T " BBB»I"; : GOT 035 
2855 I Ffl$* " L " THENG0T039 
2106 GOTO2050 


READY. 


0/1 


VC-20 


MBPIELEN 

DH=0 


ODER GEGEN 


1 REM #HANGMRN#, 1983 BV HfiRTMUT WEBER, 7328HEIDENHEIM 

2 REM COPYRIGHT 

3 BFl=4*<PEE K < 36866 > H M D 1 28 ) + 6 4 $ < PEEK ( 3 S 8 6 3 ') RH B 1 20 > 

4 P0KE3S878, 13‘ , TG*36876 
7 GOSUB8000 

10 PR I NT " 23” 

11 PRINT "SWOLLEN SIE ZU ZWEIT 

12 PR I NT " ZU ZWEIT-fl, VC-20=B" 

13 GETG$: IFG$ : =" "THEN 13 

14 I FG$“ 11 B " THENGO” 1 
18 PRINT" 

20 l>0:RN~0 

2 1 FORPsBR+484TOBR+505 : POKEP , ■ 

22 I FCOTHENGOSUB4000 

23 PR I NT 
2 4 P R I H T n 

25 pr i nt l! mmzwMmmwim-iR . u . 

48 I FOOD OT 060 
58 INPUT "3WBEGRIFF ; 11 
60 LL=LEHCB$ > 

70 IFL.L>£1THEN50 
80 LE-0 

100 FORI =1 TOLL 
110 IFMIIi$(BT, 1 , 1 
120 NEXT 
190 PRINT M JfflWMWl 
200 PRINT"HMWSWW"; 

210 FORO" 1 TOLL : PRINT " ■ 


MBEN COMPUTER 


•2023SWKT 


32 ; NEXT : DR='Dfl+l 


i DPI 


"THENLE«LE+1 


HANGMAN 

;r> 3 i 

1 :■ 2 

CD 

FGHIJ LM 

0 Q 

> 1 ! 'l ' ’ 

UUWKYZ 

■ A-- 


T? 

i 


O 1 O 

iL 1 C. 

215 

220 

300 

385 

310 

320 

330 

340 

350 

352 

334 

360 

380 


"THENPRINT"SI 


:[FMIII$'::B 4 , 0 , 1 > = 

NEXT 
PRINT 11 

GETfi$ ■ IFflf-" "THEN300 
IFH$=" “THEH300 
I>1 

FOR 1=1 TOLL 

I FH4“M I M < BT ,1,1 ) THEN350 
GOT 0330 


1 FPEEK ( BFH-4S4+ 1 )=TTTHENU=0 = G0T0446 
POKE ( BR+484 + 1 > , TT 

AN-HN+ 1 : PR I NT " ; : FORD-0TO I 

GOTO440 

I F I =LLRNDU= 1 THENFORR- 1 TO208 ■ POKE TO , 1 35 - NEXT 
390 POKE TO , 0 

400 I F I “LLHNDU- 1 THENS=S+ 1 : U=G 

401 i f i = l l. rh d s > 8T h eh pr i m t 11 1 a w n i * ® 6 immmm m fl a 

402 I F I *LLRNDS> 1 THENPR I NT 11 HHI" , 

404 I F I - L. LRNDS > 2 T H E H PR I H T " SIBi" J 
406 1 F I =LLfiNB8>3THENPR 1 NT " II/WOHM" ; 

408 I F I = L L fl NDS> 4 T HE MPR I NT 11 mm SI" ; 

4 1 2 I F I ~LLflNBS>5 THENPR I NT 11 WmW i 
414 I F I ™LLRNB8>6THENPR I NT " Wlli“ ,* 

416 I FI™ L LRHD8> 7 T HE HP’ R I NT I IMfil ; 

418 IFI=LLh ND8> 8 T HENP R I NT " I mm" J 
420 I F I -LLANOS™ 1 9THENPR I NT " IF ; 

440 NEXT I : I FS- 1 0 THEN 1800 
450 I FAN- CLL-LE > T HENP L =20 : GOTO2000 
508 GOT 0300 
1 060 PR I NT " 

0 

1010 I F G$0 " B •' THENDR=0 
2800 GETPl$ : I FR$= " " THEN2008 ' 


: PR I NT ,! M " ; ■ NEXT : PR I HTFi$ : U=0 


OEHflBT 11 : PR I NT 11 W. ICHTI G WRR • 11 ■ PR I NTB$ ■ 0P= 


ComDutronic 


85 



VC-20 


2 1 00 I F0P" ; 39THEHF‘R I NT " :T '• OP*0 
2200 I FPL=20THENGuT 020 
2210 GOTO 14 
4000 REM 

4010 REflDBf : I F E $= ' ' K 0 R MORAN 1 ' T HEN R E 3 T 0 R E ■ DA = 9 

4 0 2 0 B A T fiPFERlOESEL/ F RO 8 C H , H U H H .■ R E H .. S CHMET T E R L I H G , HR I F 1 8 C H , W ELLE N S I T T I CH , 8 T I NK T I 
ER 

4030 DfiTAKUCKUCK , HECHT , H I RSCH > ELEFRNT .■ ENTE , G I RflFFE , SALAMANDER .■ ABLER , MRUS , KAH I NCH 
EN 

4040 BATAHEUSCHRECKE , P I NGU I N .■ NflSHORN , KRT2E , SCALE l EREULE SEEHUHD KAMEL , KROKOB I L , T 
I GER 

4050 BRIAN I LBSCHWE I N .■ SCHLftNGE , FUCHS , SCARF , R I NGELNRT TER .■ OTTER , I GEL , BUNTSPECHT , SCH 
IMPRNSE 

4060 HAT A A 1 ESEL , LANG ARM AFFE , MEERSCHWE I N , PARAGE I , T 1 NTENF 1 SCH , FRLKE , L 1 BELLE ■ AME I SE 
4070 BATHGAZELLE , FLEDERMRUS , HAMSTER / FEL.BHASE , KDRMORAN 
44O0 RETURN 

8000 PRINT 'EM IHRN G M A N * 

8002 PRINT , ’M40 i vL -'83 BV H. WEBER SMALL RIGHTS RESERVED > " 

8805 REM T389 111 09$" 

80 1 0 PR I NT 11 MBE I D I ESEM SP I EL K'flNH MAN 2U 2WE I T SP I ELEN . " 

8020 PR I NT 11 SHAH KAHN ABER MUCH GEGEH DEN COMPUTER ANTRETEN. " 

8830 PRINTER KENNT 356 BEGRIFFEH" 

8040 PR I NT "HUS DER SSSriERWELTBS. " 

8050 PR I NT "MALLE BERGRIFFE WERBEN VOM COMPUTER BURCH- GE2REHLT ! »"; 

8100 GETAT : I FA$- " " THENS1 00 
8110 RETURN 

REA3BV. 


New Inmac Catalog I 
jam-packed 
with computer/ 
wp supplies. 

Yours free! 



i 

i 

i 


m Fast delivery. 24- hour sbi ament. Over* 
night emergency shipments cvollable 

■ 49-day trial. Full refund if not complete ly 
satisfied 

s Guaranteed quality. All product;, imic 
rested to higtiesl standards 

■ Laser shipping costs. fl fully stocked 
disrrtouiion centers serving toe U S 

For fastest delivery of your free 100-page Inmac catalog, 
call 1 (800) 5 47-5444. 1 (800) 547-5447 in California. 


MMMMWWSMMW Catalog Depl . 2465 Augustine Drive, Santo Clare, DA 96061 

mm M m m m ArnmM Please be sure to include four phone number. 


Accurately colled Nhe bibte of toe industry." irs 
loaded with great products and ideas for your 
persona' compurec minicomputer or word- 
pracessing system. You'll enjoy 
□ One -stop shopping. Over 2.GM prod lcj s 
to chrome from 

■ Easy ordering. Mall, phone, or TWX. 

Verbal RO 's welcome 


( ) 


COMPANY 


ADDRESS 


I 


cmr STATE ZIP 

CIRCLE 203 ON READER SERVICE CARD 



IT IS NEVER 

mmm mw too lateii 

# TO GIVE YOURSELF, 
YOUR COMPANY, 

A GIFT THAT CAN SAVE YOU ; 
$1 ,000,000’s!h#3^&. *and it can 

COST LESS J^tiSm^GET THIS - 
LESS THAN m|HRKL a 

$20 ff BRAND 

jA \ ' ALREADY ' 

/I J ” WHO# L , SPENT 

10 DUCTS” = 

_ BV P ' R1 "S. SCRATCHES 

produced e w¥' *NasuBr«E 


m OUTSIDE CW.IfO=NIA 

m BNHM 
* msme cturoHNJA i 
M04ZUJ2H 

k DEALERS ANSrtofi 
DISTRIBUTORS 
INVi T ED 


“MANN'S VINYL PRODUCTS" 
has designed and produced a 
computer cover that 
beautifies your room or office and protects at the 
same time for an astonishingly low price! 

- Manufactured qI glove leather soft — super easy clean vinyl This new 
product is available in your choice of 3 colors. 

The name of your computer and its logo 
Is handsomely silkscreened on your cover. 

Each custom cover is Individually 
lifted to your specific computer model 
Easily the most attractive cover 
nn the market loday. 

11 nul completely satisfied — Mum 
in fourteen f14| days for a 100% refund 

’mflnn’gls^ai 

: LOCAL; ( 408 ) 9 7 1 - 7 23 3 ^ ^ EXSJ 3 j 

76 J MABURY ROAD 5 AN JOSE, CA-95133 

~~wmm 

CIRCLE 189 ON READER SERVICE CARD 


PR 


Rnmni itmnin 


0 










1 



Fire is the only weapon you have to keep the Dina ; 
Ivtom frofii putting- her foot down and 'crushing -YOU! 

.. Can you escape the Dino Mam% 

' stomp r avoid the crawling, clawing 
&«■ creatures, find the eggs and save 
the dinosaurs, from extinction? Only- 
| . you can face the challenges of 
■ survival in the prehistoric time warp 
MSg;. of DINO EGGS'" from MtcroFun, Inc, 
. ..the fun goes on forever. 


Warped into a prehistoric world you've con- 
taminated the dihdsdurs. You roust- climb nine 
deadly 'cliffs, tindthe dino eggs and carry them 
back tO: th e.-21 st cents ry . ^ 

Dodge the radioaci i ve m 

snakes -and spiders when 

ypu-ciirrib. ,-eap and jump aWKg^fcdB 

over the challenging cliffs |EBp 

to locate the eggs. As you 

fight your way up the nine 

levels your skills must 

increase if you are to 

survive the deadly 

creatures ' ,g ai*i 


Avails Wefor: i ll 

Apple tr& tier 
AtariSOO” 

tsM pc 1 ' isy 

LrOE6COVfSf03i 
Commodore $4" 



ATARI — 

Die hier abgedruckten Programme sind in Basic fur den Atari 400/800/600 XL geschrieben 


Mastermind 


Das bekannte Denkspiel mit vielen Schwierigkeitsstufen. 

Der Computer denkt sich eine Kombination von Buchstaben 
a us (max* 7-stellig-, je nach Wunsch) und der Spieler mu ft die 
Kombination herausfindem 

Der Computer gibt an, wieviel Buchstaben an der richtigen 
Stelle sitzen (Schwarze) und wieviele Buchstaben im Urcode 
auch vorkommen, jedoch im Vorschlag nicht an der richtigen 
Stelle sltzen (Weifte). 



Beispieh 4 Stellen> Urcode A C F D 


Farbem A, B, C, D, E, F 



Schwarze 

Weifie 

1. AABB 

1 

0 

2. CCDD 

2 

0 

3. ACDE 

2 

1 

4. ACFE 

3 

0 

5. ACFD 

4 

0 

Richtig geraten beim 5. 

Versuch 



Alles klar? 


Viel Spaft beim Ausprobiercn* 


Schlangenkrieg 


Bei diesem Spiel geht es darum, sich einem aufdringlichen 
Gegner durch geschickte Bewegung zu entziehen. Abgebildet 
werden zwei Schlangen, eine rote (Spieler) und eine blaue 
(Computer). 

Der Computer steuert seine Schlange auf den Kopf der Spieler- 
schlange zu. Den restlichen Korper der roten Schlange kann er 
jedoch nicht uberwinden. Und so kann sich der Spieler dann 


auch schtitzen: er mufi fleifiig » sc hi angel n« um Punkte zu 
fressen. 

Hat er einige Male den Bildschirm leergefressen (die Computer- 
schlange wird dabei immer schneller) ist die blaue Schlange 
plotzlich in der Lage sich durch den Korper der roten Schlange 
durchzubeifien (was durch auffallige Knabber- und Kauge- 
rausche untermalt wird). Dann wird es erst richtig spannend. 


1 REM 


2 REf’l i % 

3 REM * MASTERMIND $ 

4 FiEfl t # 

5 REfl * von hOLhHD REVEF: 

6 REFr S % 

7 REfl * 5/83 t 

8 REfl | * 


9 HEM 

10 TRRP 590 

ES GRAPHICS 8:? :? s? '* HIEMIELE STELLEN 
(max. J ;< " i 

38 INPUT Si IF S>7 THEN 20 
40 TRAP 588 

5y_? CHR#< 125 >ii? :? :? 11 HIEUIELE UERSU 
CHb <! max . 1?) 11 j 




ATARI 


68 INPUT Ui IF U > 1 7 THEN 58 
78 Dlfl 0$<SXB$<S>*C$<S> 

80 Fh= I NT < S+S^2+0 . 5 > 

39 REN ERHITTELN DER FORBKONB I NOT I HN 
38 FOR J=1 TO £ 

1 88 0$< J * J >=CHR$ < I NT< RND< 8 >$F0+65 > ) 

110 NEXT J 

119 REN SPIELBEGINN 

128 OPEN #l J 4 i 0^ ,, K:'? 

130 OPEN #2*4*0, “ Si": SET COLOR 4*3*4 
148 ? 11 1 FORBEN ' i " ; 

15a FOh 0=1 TO Ffi 
168 CHft$< 0+132 >i " "i 

178 NEXT J 
ISO ? 

1 38 : ? i! sc i-iiuar ze He i sse i! 

208 FOR 0=1 TO U 

218 ? 11 !! iCHR$< 153 

226 POSITION 2*0+2 

236 ? 0 i . 11 jCHR$< 127 X 

246 CS=0 

£06 CH=0 

268 B$=0$ 

263 REN EIHShBE DE3 U0RSCHL06ES 
278 GET #i*H 

2S0 IF <'0::m> 64 ONO fl<FA+63> OR 0=31 > OHO 
PEEK< 85 f\ 6+6 > OR <<0=126 OR 0=36 > AND P 
EEK<y53>6 > THEN ? CHR$< 0 X : GOTO 278 
238 IF 00155 OR PEEK<85X6+S THEN 276 
388 POKE PEEK< 35 X256+PEEKX 94 X 2 i 3 
318 POSITION 6*0+2 
320 INPUT #2*0$ 

329 REN OUSHERTi INS 

330 FOR F=1 TO S 

340 It- _C$< F X “0“ OR C$< F >>CHR$< Ffl+65 > TH 

EN POKE 186*70: POKE 187*0: GOTO 598 

356 IF C$< F * F >=B$< F *F > THEN CS=CS+1 : B$< F 

*F>= , ' J 1 :_C$<F*F >=”/"' 

iSO NEXT F 

370 FOR F=1 TO S 

388 FOR G=t TO S 

399 IF C$<F*F; i =B$<G*G> THEN CW=CN+1 : B$<6 
*G>= , ‘ “:C$( F*F ) 11 

480 NEXT G 

410 NEXT F 

420 POSITION 2*0+2 

429 REN ERGEBNIS 

43G ? CHR$< 127 XCHR$< 127 > ; CHft$< 1 27 > ; 11 " 

sCS i il " *CH 

446 IF CS=S THEN 546 

450 NEXT 0 

453 REN ENDERGEBNI3 

460 ? : ? " LEI DER NIGHT GESCHOFFT" 

476 ? : ? "DIE RIGHT IGE KGNBINOTION LfiUTE 

T 2 11 

480 ■? C HR$< 1 27 X CHR$< 1 27 > ; CHR$< 127); " " 

436 FOR F=i TO S 

588 ? CHR$< fiSC< 0$< F > >+128 X 

5 1 6 NEXT F 


ATARI 


536 

546 

Ein 

549 

550 
560 
570 
580 
□88 
590 
600 
610 
620 
630 
640 
650 


60 T 0 550 

? :? CHR$< 253 >; " RIGHT IS 6ERATEN B 

iJ; . MERSUCH " 

rttfl EHDE 

? i ? 11 NOCHNRL (J/N)"i 

INPUT NS 

IF THEN RUN 

STOP 

HEP? HRkNUGEN BhI FALSCHEIN6ABE 

TRAP 530 

SE l COLOR 1,04.0 

SET COLOR 2,0,9 

? CHR$ < 253 > i 

SETCOLOR 1,12,10 

SLT COLOR 2,9,4 

SOT 0 PEEHX 1 87 >T256+PEEKX 1 86 >- 1 0 


1 

“ J 

4 

5 

6 

? 

r 

8 

9 


REN 

REP! 

Rtn 

RED 

REN 

REfl 

KEH 

REfl 

REN 




SCHLAMGEHKR i EG 
von ROLAND REVER 


% 

t 




10 Din A< 1,20 >,B< 1,20 >: 0=8- 4:RN2=3: TH= 1 

1 9 REN 6 1 LDSCH I RmUFBAi j 

20 GRAPH ICS 5 : ? CHR$< 125 >j “PiJNKTE: “ ; Gp = 

SPIELER HR,: 11 ;AHZ 

£j® p P=0^COLOR 2: PLOT 0,0:DRAWTO 79,0: ORR 
HTU 73 , 39 : URAWTU y,39:DRAWT0 0,0 

48 POKE 752,1: COLOR 2s FOR J=i TO 5y:X=IN 


r < RNEK 0 7s 77 .:■+ 1 : V=I NT< RND< 0 >£37 >+ U LOCATE 

AND <V>9 AN 


y v 

j Til 


30 IF 2-2 OR <04=20 OR X=60 ■. 
D V<31>> THEN PP=Pp+i 
50 RfcTI SPIELSEGINN 

60 PLOT X, Vs NEXT J 
7 0 X=20 : V= 1 0 : XC=S8 : VC= 1 0 
80 COLOR 1 : PLOT 20, 10: DRAHTu 
3= PLOT Gw, 10: DRAHTu 66,30 
90 FOR 0=0 TO 


20,30: COLOR 


110 

120 

K=9 

130 


18m 


FOR J=8 T 0 20: Ac. 0, J >=20 : Be 0 , 0 >=h 0 : u.; 1 
, u ,‘=j0-,j : Be. l,-J >=30- j: NEXT J ' ' ‘ H " 1 

100 SOUND 6,0,0, 0:2=0 

R -STICK', 0 >: IF K=15 THEN 180 

2P=c. (K=5_0R K=6 DR K=7> AND X< 78>-<( 
OH K=10 uk K=1 1 > AND X>1 > “ 

7,-^,VP=<<K=5 OR K=9 OR K=13 > AND V^3kW 
'• K=b UR K= 1 8 OR K=14> AND V>1> " 

140 LOCATE X+XP,V+VP,Z: IF Z=1 THEN 
1 36 X=X+XF : y=V+VP 

FOUND 0,50,10,4: COLOR 0:PLGT A<0,SZ> 

M F : g* 8 ? ' =X SZ >=V 

'-*■ 0s - + l * IF 5<i>Z0 THEN SZ-0 

18S IF 2=2 OR 2=3 THEN 330 
1 n® -7 ; Jr 1 ^TC RHD < - •■ + 0 > ! XCP=0 * VCP=0 : SOUND 0 

s' $3 r *3 M fej 

260 Px=hBS< X-XC >+ 0 , i : PV=A6S< V-VC >+6, 1 
216 If PX>-FV THEN XCP=c < X>XC >-< X< XC > >£S 


ATARI 


22® IF PV>=PX THEN YCP=< ( V>VC>-:V<YC >>*S 

236 LOCATE XC+XCP,VC+¥CP,Zi IF 2=0 OR Z=2 
THEN 280 

240 IF INK XC+XCP+O. 5>=X AND INK VC+VCP+ 

0. 5 >=V THEN 430 , 

2S0 IF t'f'lH HND £=i THEN XC=XC+XCF:K TPT- i 
> • VC=VC.+VCPS< TD- 1 > : XCP=8 : VCF-O : SOUND 0 , g 
0,6.8 

268 IF t Z=3 UR <2=1 HND TF)>1 » AND NOT 
v I HK XC+XCP+0 . 5 >=XC 1 HND INK VC+VCP+0 . 5 > 
-VC1 > THEN 280 
270 GOTO 100 

286 COLOR S: PLOT B(0,CZ>,B< 1,CZ>:ST=K<CZ 
■■"2 >=1HK CZ--2 > > OF: Z< >3 
886 SOUND 0*70,10,4: XC=XC+XCP£ST : ¥C=VC+¥ 
CP*ST: COLOR 3: PLOT XC,YC 

400 8 , CZ >=XC: B< 1 ,CZ >=¥C : CZ=CZ+ 1 : 1 F CZ> 

20 ! HEN Cz=0 

310 XC1 = INK XC+0.5 ): YC1=INK VC+0. 5>: IF Z 
=1 OR Z=2 THEN 380 
320 GOTO i00 

328 REN BILDSCHIRfl LEER 

330 9P=SP+ 1 : kF-=PP+':; Z=2 ) : POKE 77,0 

-340 FOR 0=30 TO 0 STEP -2 

350 SOUND 0,. J,10, 8: NEXT J:? CHRit 125>; B P 

UNKTE : ";;SPi" SRI ELER NR . : HHZ 

3S0 IF PF-50 THeN L=l@: RESTORE 59€il GOTO 

370 GOTO 210 

379 RED PUNKT SEFRESSEN 

380 PP=PP+( 2-2 

22® r6R. 8=6 TO 80 STEP 2: SOUND 0,.J, 10,8: 
HEX l J : suUNU 0 , 0 , 0, 0 

400 IF PP=50 THEN L= 10: RESTORE 580: GOTO 

4 1 0 XC= INK XC+0 . 5 > : VC= I NK VC +0.5) 

42S GOTO 100 

429 RED SMeLER GBISSEN 

430 FOR ,J=0 to 199: OH J>21 GOTO 480: COLO 
R 3: PlOT A< 0 ,SZ •> , (K 1 , 32 >: PLOT B< 0 , CZ>,BV 

1, CZ> 

448 SET COLOR 9,0, 9K 0^2= INK 0^2 > > 

450 SZ=SZ+I : uZ=CZ+l 
4SS IF CZ=2i THEN CZ=0 
476 IF SZ=21 THEN SZ=@ 

430 SOUND 0,0+10,8,8: NEXT J:SETCOLuR 0,2 

f o 

490 SOUND S , O , 0 , a : 82=6 : CZ=S : HHZ=HNZ- 1 : ? 
CHRtt 125 >i "PUNKTE: “iSPi" SPIELER 

NR.: “ i HHZ 

580 IF HNZ=0 THEN RESTORE 600: L=16: GOTO 
520 

510 GOTO 70 

519 RET] nUSIKROUTINE 

520 FOR 0=1 TO L:REHD TON,ZE IT: SOUND 0,1 
UN, 18,8: FOR 7=0 TO ZEIT : NEXT T : NEXT J:SO 
UHD 0,0, 6,0 

5-30 SZ=0:CZ=0:pp=0: IF HHZ=0 THEN 560 
540 HHZ=HNZ+1 :Q=y+0.2: IF Q>1 THEN 0=1 : TT1 
= lf‘i+0. 1 : IF IT] >2 THEN TT1=2 
550 GOTO 20 

559 RET! SPIELENDE 

5S0 GRAPHICS 0:PGKE 764,255: DIFi Hi( 1 >: PO 

SIT ION 13,10:? “ GAflE ODER 

570 ? NQCHnAL “j: INPUT Hi: IF 

THEN RUN 

580 END 

589 RED DATEN FUEft F1US IK 

590 DSTA 108,50,81 ,50,61,5,31,50,72,50,0, 
5 , i 2 , -jS ,64,1 00 , 72 , 25 , 9 1 , 1 00 

600 DATA 102,200,0,5,102,200,0,5,102,50, 
0,5,102,200,85,200,91 ,50,0,5,91 ,200, 102, 
50,0,5,102,200,108, 100, 182,400 


n a 


Apple 


Wilder Westen 


Programmbeschreibung: 

Wilder Westen ist ein Text-Adventure fur den Apple II und alle 
kompatiblen Computer- 

Ziel des Spiels ist es, durch die Wiiste von Arizona nach Norden, 
nach Colorado zu gelangen. Dabei wird man von Geronimos 
Apachen verfolgt. 

Mit sieben Kommandos kann man den Spielverlauf beem- 
flussen : 

1 — W asser trinken 

2 — Vor w arts : 1 angs ame Gesch w lndigkeit 

3 — Vorwarts : voile Geschwindigkeit 

4 - uber Nacht rasten 

5 — Gesamtzustand ausgeben 
6- Auf Hilfe hoffen 
7 - KommandoTiste ausgeben 

Bei der gefahrvollen Reise durch die Wiiste mufi man vielen 
Gefahren trotzen. Man wird von den Apachen gejagt, von 
Ban di ten uberfallen und vom Durst geplagt. 

Bel alien Uberlegungen darf man nicht nur an sich selhsp 
sender n man mufi auch an sein Pferd denken. Qhne Pferd ist 
man verloren. Wenn man die 200 Meilen durch die Wiiste von 
Arizona schaffen will T mufi man viel Gesehiek und auch Gliick 
habenl 

ii POKE 1657*90: LIST 

0 REH WILDER WESTEN (C) 1984 BY OLIVER 51 E JN11E- 18R 

1 IE XI : HOME : INVERSE : Him 14: PRIM! I! MILDER WES TEH 15 : NOR HAL : POKE 34, It 7 TAB 

10 s INPUT 11 HULNSCBS1 DU INS'J MM I IQMEH V IF “ MT 1 I HEN 7 

2 HOME : PRINT s PR IN I 11 W I LLKONHEN IN kHLDEN OESIETL MIR BCHREiBEH. DAB JAHP 

1043, DU BEF X NDES 3 DICK IN SUE DEM VON ARIZONA UND HILLS I NACH COUTH ABU 11 

3 PR INI "LEI DER HIRST DU VON GERON I TIGS APACHE N VERF GLUT , Vl&M Du GET A NO EN W I F< ST . 

1ST DEIN LEBEN KEINEN CE Hi ME HR HER 1C, " 

4 PRINT 2 PRINT 11 MAE HR END DER SEFhHRENVOLLEM REISE DURCH DIE HUES IE VON ARIZONA WIR 

ST DU DEFIERS NACH DEI NEW IUMIhNDOB GEFRAGT. DU NASI FSLUENDE MPEGL 1 CHhE I 'T E N s ,l 
: GDSLIB GS 

5 WAIT -■ 16304.128: PRINT s PRINT 11 DU HAST El MEN LI SEP NASSER - DAS ENT - SPRICH'i 

SECHS SCHLOCK, DER VOREA! WIRD ERGAElfe I - WENN DU El HE FARM ERRLICHGT" 
b PR IN ‘I "WENN DU HILFE FINDS!, ERHAELSf DU 0.5 LITER NASSER, NLNN DC NASH K0I1TN B. 
ECHS KETNE HILFE FINDS I, BIST DU VtTRLDREN. " : PR INI : PR IN I : B ■» 4:0 -* 6 

7 PRINT : PRINT "DU BIS l HI MEN IN DER HUES I E VON ARIZONA": PR IN \ : PR I IT j :.B * 4:D ^ 

6 

8 IF C 199 THEN 39 

f B k B - 1: IF B ™ 1 i HEN PRIN1 -WARNUNB - 3 RINK ETNAS I": PRUT I 

W. IF B I. 0 THEN PRIM \ 11 DU HAST KE IN HASSER NEHR SCHaDE ! BGTO 46 

11 E =- E t 1:0 “■ INI MO * RND LU J- 2 «m: IF E t 4 THEN 15- 

12 H H 4 G: IF H < C THEN 14 S • 

IS PRIM I "DIE AP ft CHEN HftBEN INCH BEPANGEN. I HR U. ESSIES SPUR IOERhE ! I HI DER HftFH 

ERPF ftl — " ; BCFCi S3 

14 PRINT "DIE ftPACHEN SIND ":C - H;» MEILEN MIN I ER" : PR IN ( "DIR" 

15 PRINT "DU HAS!' SCHON "sCs" MEILEN" s PR I HI "ZURUEChGELEGF . " 

16 PRINT : INPUT "W1E ISF DEIN KOMMAMDD 7 = VAL : ON 1 GOTO 26.20.22.24 

i .:!C ■ IS. Ij 7 

17 GOTO 16 

18 J s I MI 1 RND Cl) % 101 ! IF J < ; 1 I HEN 46 

1? PRINT 11 El ME KAVALLER IE-ABTE I LUNG HAT D£CH BE- WUBSTLOS AUFGEP UNDEN UND HI LPT DIR 

."i'D - 3s B - - 4; BO TO S 

O F = F t is IF F = 3 THEN 3S 





Apple II 


21 GOSUB 28: L - A( RND (1) t 10) :C « C + L: PRINT ’’BIESER OR! BED ft EEL T DEINEi-1 PFERD 

GOTO S 

22 F « F + 3: IF F > 7 HEN 38 

23 GOSUB 23: L = I NT I RND U> * 20) :C - C + L: PRINT "BE IN PF-ERD UALLUr"' IERT BURCH 

DIE WUESTE VON ARIZONA. WIE GIN WIRtELWINU. 80 TO 3 

24 PRINT "BE IN PFERD 1ST DIR SEHR UA'NKBAR. " i F ■ 0: 00! O' 9 

25 PRINT "BE IN PFERD HAT MUCH KRAFT FLIER" ; PR IN 1 7 - F: " ! ABE . 11 : PRINT "1)0 HAST NOC 

H ” : Ds ” SCHLUCK NASSER " s PR I NT " I H DEI TIER F Ell DFL ft St! IE. R 1 1 IT l M DU KAN NS I " ; h : " 
KOMHhNDOS DONE": PRINT "ZU ! R1NKEN DURCHHJEHREM, “ : GOIU 8 

26 D-D - It IP D < 0 THEN 1150 

27 PRINT "ES 1ST RES SETA NASH FINER FARM ODER MAOHE I MEN FORT ZU SO CHEN !":J3 « 4: SO TO 

Ifc 

2B ft = INI ( FIND (1) * 100 5 : IF ft > 5 THEN 36 

21 PRINT 11 BEFAEHRL ICHE BAND I FEN HftBEN DICH BE- FANBEN. GLUECKL ICHEftWEISE 1ST DER 
CHEF MIT FINE FI LQESEGELD E 1 NVERST ANDEN . . . " : PRINT "ACER aCHTEN S1E AUF DIE A 
PACHEN ! ! f “ 

30 PRINT : PRINT "DU HAST NEUE UNI ERIIOMM ANDOS: " : PRINT : PRINT "<7J FLUCH ! VERSUCH" : 

PRINT »<8> BEZAHLUNG ABWARTEN": PRINT * INPUT "I HR UN TERKOMMANDO ? ":C$: IF Cf 
« "S" THEN 33 

31 L = I NT C RND (li t 10): IF L >5 THEN PR IN I : PRINT "DU BIS I VON FINER KUDEL T 

OEDLICH VER- NUNDEt WORDEN" i GOTO 43 

32 PRINT : PRINT "SRA TULA TIOM - ERFOLGREICH EMI KOHHEN ] ! !":H = 0: GOTO 8 

33 L. = I NT f RND fl) .* 100.) : If L 7 24 THEN 35 

34 PRINT "DAS LQESEGELD HORDE BEZAHL! UND DU BIS! FRET. 11 :M = 0: 6010 8 

35 PRINT "DAS- GELD HAT SI CM VERSPAETET . MARIE NOCH": 60 10 30 

38 ft = INT v RND U) * 10): IF ft > 2 ! HEN 40 

37 PRIM ! "DU HAST FINE FARM ERREICM 1 . " : PRINT "DE [ME WASS ERF LASCHE WIRD AUFGEFUELLT 

UN DDE I N PFERD FRISST MAFER. M :B * 4:D = 6: RETURN 

38 PRINT "DU ALTER SCHINDER :’ 1 DU T RE IBS"! BE IN PFERD IN DEN JOB !! ! GOTO 46 

39 FRITH "DU SI ST GLUECKLICH ft N8E KOFI HEN. " : PRINT "El HE KAVALLER IE-EINHE I T HAT DIE ft 

PACHEN GE F AMGEN. BE 1 E1NER PART IE. DIE DU NUN SIBBi. SIND SIE DEI ME D I ENTER 
. "s GOTO .53 

40 L = IN! ( RND (1) * 100): IF L > 5 THEN 44 

41 PRINT "DU BIST IN El MEN SANDSTORM GERAIEN. ... VI EL GLUECK !!!";H = I NT < RND 

ti) * 105:0 = INI t RND (I) t 105:0 = INI ( RND (1? * 10): IF 0 < 5 THEN C = ' 

C - N: GOT 0 43 


4-2 C - C * N 

43 PRIM! "DEJNL POSITION 1ST ":C;" ME I LEI!" ; PRINT "NEl TER. RETURN 

44 IF INI ( RND il) * 1005 > 5 THEN RETURN 

45 H a H + 1: PRINT "'DE 1 N PFERD VERLL I Z TE 31 CM AM HUP.": PR] Ml "-GLUfeCKL 1 CHERWE ISE SI 

ND DIE APftCHEN GEHFAUL" : RETURN 

46 P = 1 NT t RND 115 « 10): FOR K = 1 10 1000: HEX 1 : PRINT "DU STUBS! IN DER HUES 


47 


48 

49 

30 

31 

52 

53 


54 

55 

56 
57' 
50 


TE.": IF P J. I HE IT 4S 

PRINT "5)5 E INTERNATIONALE I'RftPRER-VEREl III BUNG SCHICK! KE1NE ABORDNUNG ZU DEI NER 
BEERD1GUNG GO 10 53 

IF P 7 3 THEN 50 

PRIM I "DEIN KDERPER WJJRDE GEIERH UNIT HYAENEN 6EFRESSEN III": 60 1 0 55 
IF F ;■ 5 I HEN 52 


PRINT "DIE APACMEN PER ! I GEN GUS DEI HER FlftU! LIE I DUHGSST UEcKE ’ !!": GOTO 55 
IF P > ? THEN 54 

PRINT "LEU it MIT SO 6ERIN6ER INLELLIGEN2 BOLL TEN IM OS TEN DER USA BLEIBEN 

UND NIGHT IRhPFER SP 1ELEM ! !!’': GOTO 55 
PRINT "KAMELE L..EBEN IN ftFRTKA UND SP1ELEN NiCHTCQWBOY IM WILDEIJ WESTEN. *’ 

PRINT : PRINT "NEUER VERSUCH V "it BET A*: IP A$ = "il ” THEN RUN 
HOME : PRINT : PR I Ml ”Nft I) ANN 1 SCHUESS I": l EX l : END 
mm 56: GOTO 1.6 

PRINT : PRIM! "'.D VOM WASSER IR1NKEN" : PRINT "72; VQRWAER I S: LAN6SAHE GESGHWIND 
I6KETT" : PRINT "<3; VORWAER'J S: VOLLE GESCHNIMDIGKEn " : PRINT "<4> HASTEN UEBER 
MACH l": PR IN T " 7 5 " GESAMT' 2 US 1 AND " : 1 P ft I N ! 1 1 7 & > ftUF H I LF E HOF F E N" : PR 1 NT " < 7 ; KOM 
MAN BO -- AUSGftBE " : RE I URN 
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Karambolage fur Apple II 


Das bekannte Videospiel -Rubber- als Basic- Version fur den 
Apple II. 

Ziel des Spieles ist es moglichst vide Punkte einzusammeln. Dies 
1st nicht ganz so einfach, denn ein »GeisterfaRrer« 1 der vom 
Computer gesteuert wird, versucht dich zu rammen. 


Zum Steuern des Fahrzeuges wird ein Joystick oder ein Paddle 
benotigt. Der ubllche Feuerknopf dient als Gaspedal. 

Das Spiel ist eigentlich fur einen Farbmonitor geschrieben 
warden, kann jedoch auch sehr gut auf einem schwarz/weifi 
Fernseher oder Monitor gespielt werden. 


10 
1 5 
20 
23 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 
95 
100 
J.05 
110 
1 15 
120 
125 
130 
1 35 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 

220 
rm ei' 

230 


240 

245 


250 


260 

265 

270 


275 


REM ********************* 

REM * KARAMBOLAGE * 

REM * F . BRAL..L 1 9B4 * 

REM ■**■**■*■**■***■***•■#****■#** 

REM 

HOME : PRINT “ PRINT " ***** KARAMBOLAGE *****" 

PRINT : PRINT : PRINT : PRINT "STEUERUNG ERFDLGT MIT 
PRINT : PRINT : PRINT "JOYSTICK 0 (LINGS/RECHTS) " 

PRINT : PRINT " ODER" 

PRINT : PRINT "PADDLE 0 (LINGS/RECHTS) " 

PRINT : PRINT "BUTTON 0 = GASPEDAL" 

PRINT ; PRINT : PRINT "< TASTE GET E$ 

GOTO 470 

IF PEEK ( - 16287) > 127 THEN D = 2 

HCOLOR= 0: ROT= 16 * E: DRAW 3 AT 6 + 12 * P\ 6 + 12 * G 

IF ABB < F - 11) > 1 AND ABS <G - 6) >1 THEN 175 

DN E GOTO 95, 115, 135, 1 55 
IF F = 12 THEN 185 

H = INT < PDL (0) / 86) - .13 J = J + H : G - G + H 

IF J < 1 OR J > 5 THEN J = J - H: G = G ~ H 

GOTO 1 05 

IF G = 5 THEN 185 

H - INT ( PDL (0> / 86) ~ 1 : J = J + H: F «. F - H 

IF J < 1 OR J > 5 THEN J a J - H:F = F + H 

GOTO 185 

IF F = 10 THEN 185 

H » INT ( PDL <0) / 86) -l;J=J+HsG=G-H 
IF J < 1 Oft J > 5 THEN J - .J - H: G = G + H 
GQfO 185 

IF G = 7 THEN 185 

H = INT < PDL (0) / 86) - 1 : J = J + H : F = F + H 

IF J < 1 OR J > 5 THEN J =J-H:F=F~H 
GOTO 185 

IF ABB <F -11) | a + 6 OR ABS (G - 6) < J + 1 THEN 185 
E = E - !;' IF E = 0 THEN E = 4 
I = PEEK (49200): ON E GOTO 190,195,200,205 
F = F + I! GOTO .210 

G = G + 1 : GOTO 210 

F = F - l: GOTO 210 

G = G - 1 

IF F = K AND G - M THEN 475 

IF N > 2 THEN IF F = 0 AND G = P THEN 475 

H = F * 13 + G + G: IF PEEK !H) < 1 THEN 240 

ROT- 0: DRAW PEEK (H) AT F * 12 + 6, G * 12 + ^: I = PEEK (49200) 
S = B + ( PEEK (H) -■ 1) * 4 + 1 : C = C- ~ 1: POKE H, 0: VTAB 22: HTAB 
S 

IF C = 0 THEN 485 

IF D = '2 THEN D == 1 : GOTO 175 

H COL DR— 7: ROT= E * 16: DRAW 3 AT F * 12 + 6,G * 12 + 6 

IF N > 2 THEN D = 2 : T = 1 - T : ON T + ,1 GOTO 255,370 

H CO LOR- 0: ROT- U * 16: DRAW 3 AT K * 12 + 6,M * 12 + 6 

H = PEEK <K * 13- + M + Q) 

IF I-l THEN HCOLOR= Hi ROT= 0: DRAW H AT K * 12 + 6,M * 12 + 6 
IF K < > 11 AND M < > 6 THEN 305 

R = 0: IF RND (1) < .05 THEN R « 1 


PRINT 
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280 

H = 

son <j - v ) : v ^ 

285 

14 == 

M H: GOTO 315 

290 

K = 

K 4- H: GOTO 315 

295 

14 = 

M + H: GOTO 315 

300 

K = 

K - H : GOTO 315 

305 

IF 

ABB < K » 11) < 

310 

U ~ 

U + l: IF Li = 5 

315 

ON 

U GOTO 320, 325 p : 

320 

K = 

K + l: GOTO 340 

325 

14 ~ 

14 + IS GOTO 340 

330 

K = 

K - i: GOTO 340 

335 

14 « 

14 - 1 

340 

IF 

!< = F AND 14 “ G 

345 

IF 

NOT R THEN 360 

350 

H = 

K *13 + 14 4 Q; 

tr 

POKE H,2 

360 

IF 

D = 2 THEN D = 

365 

HCDLOR™ 5: RDT“ U 

370 

HCOLDR= 0: RDT= W ■ 

375 

H - 

PEEK <0 * 13 + 

380 

IF 

H THEN HCDLOR— 

385 

IF 

0 < >11 AND P 

390 

H' - 

SDN (J -- Z) : Z ! 

395 

P = 

P - H: GOTO 425 

400 

0 - 

0 + H: GOTO 425 

405 

P = 

P + H: GOTO 425 

410 

Q = 

□ ” H: GOTO 425 

415 

IF 

ABS (0 - 11) < 

420 

W = 

W + l: IF W = 5 

425 

ON 

W GOTO 430,435,- 

430 

0 = 

0 + l: GOTO 450 

435 

P = 

P + 1 : GOTO - 450 

440 

0 == 

0 - l: GOTO 450 

44 5 

P = 

P ~ 1 

450 

IF 

D = F AND P = G 

455 

IF 

□ = F AND P = G 

460 

IF 

D = 2 THEN D = 

465 

HCDLOR” 5: ROT= W 

470 

GOSUB 590; POKE 23' 

475 

IF 

8 > A 1 THEN A 1 


V +'V OR ABS (M - 6) < V + i THEN 315 


DRAW 


0 THEN C ~ C + 1 


AT 0* 12 4 6. F* 12 + 6. 


6 THEN 415 


6) 4 1 4 l THEN 425 


THEN W 


l: GOTO 370 


m s 


0:J - 0 


480 
485 
490 
495 
500 
505 
510 
51 5 

520 
5 2 5 
530 
535 

540 

545 

530 

555 


S » 0" N = 0 

C ” 200 Z N ” N 4 15 HGR : HCDLOR™ 6: FOR Y « 0 TO 60 STEP 12 

Y*Y TO 276 “ Y, 156 - V TO Y„ 156 - Y TO Y ;r Y " NEXT 
12 TO 48 STEP 12: HPLDT Y, 65 TO Y, 91 
HPLOT 2 76 - Y, 65 TO 276 - Y, 91: HPLDT 125, Y TO 151 f Y 
HPLOT 125,156 ' - Y TO 151,156 - Y " NEXT 

3 =: 7716; FOR L = Q TO Q + 298 : POKE L« 0: NEXT : HCDLOR- 1: ROT= :: 0 
SCALE= U FDR Y = 0 TO 4: FOR X = 0 TO 9: DRAW 1 AT 6 + 12 * X , 6 + 1 
* Y 

POKE 13 * X + Y + 0,1 
DRAW I AT 270 - 12 * X „ 6 
DRAW 1 AT 6 + 12 * X., 150 
DRAW 1 AT 270 


HPLOT Y f Y TO 276 
H GO LOR= ; 0: FOR Y 


12* X , 150 


POKE 13 * 

<22 - 

X) 

4 Y 4 Q, 1 

POKE 13 * 

X 4 < 1 

*"1 

- Y) + Q,1 

; POKE 13 

* (22 

“ 

X) + <12 - Y) + 

= 1 2 : G = 1 

2: E ® 

l : 

a = 5: ROT ” E * 


0. , 1 : NEXT X 

NEXT Y : K » 10: M = 12: u = 3:V = 5; 

1 6 

HCOLOR® 7: DRAW 3 AT F * 12 + 6,G * 12 + 6: ROT= U * 16: HCDLOR- 5 
DRAW 3 AT K * 12 + 6,M * 12+6 

0 :w = i:z = 5: ROT= W * 16 : 


IF N > 


THEN D 


1 0 : P 


DRAW 


AT D * 1 


+ 6 « F =l * 12 + 6 


560 HOME 


VTAB 21: PRINT "PUNKTEZAHL: " 
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565 VTAB 21; HTAB 21; PRINT "HOECHSTLEISTUNG: N 
570 HTAB b: PRINT B; : HTAB 27; PRINT A1 
575 FDR I = 1 TO 1000; NEXT I 
580 GOTO 75 

585 REM HEX—ZAHLEN FUER SHAPES 

590 L = 7680: A$ = "030008000E0012003E2C003E2E2E2C3C3C0037373F3E362E2C252D3 

52 D 2 E 24 3C3C 2 7 27 00 11 ; FOR 1 = 1 TO 72 STEP 2; A = ASC ( MTD$ - 

48; IF A > 9 THEN A = A - 7 

595 B = ASC ( M I D$ (A$, I + 1,1)) - 48; IF B >9 THEN B = B - 7 
600 POKE L, A * 16 + B: L = L + 1: NEXT I; RETURN 


HA R T CO P V K AR A M B O L A G E 
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Maskengenerator 


Ein Programm welches Programme entwiekelt: Fur unsere fortgeschrittenen Computer-Freunde* 


Maske ? 

Der Begriff Maske wird in der Regel als Kurrform for »Bild- 
schirmrnaske«- verwendet. Fine Bildschirmmaske 1st ein auf dem 
Bildschirm dargestelltes Formular, in das TDaten eingetragen 
werden konnen. Gegenuber der ublichen Dateneingabe mittels 
INPLTRBefehl bietet die Bildschirmmaske eine viel bessere 
Ubersichtlichkeit und oft auch bessere Korrekturmogl ich kei ten . 
Ein Heines Beispiel: Wird mittels INPUT-Befehl nach dem 
Namen gcfragt, so ist nieht zu erkennen ob der game Name oder 
nur der Nachname gemeinr ist. Dies wird erst deutiich wenn die 
nachste Frage erscheint. Eine Bildschirmmaske schliefk solche 
Fehler aus, da alle Fragen zu ubersehen sind* 


In der Regel wird eine Bildschirmmaske mittels PRINT und 
GET Befehl erstellb Da dies jedoch sehr zeitauftvendig ist gibt es 
»■ Maskengener atoren « . 

Diese entwickeln die gesamte Bildschirmmaske mit Eingabe- 
routine. 

Bildschirmmasken sind fiur viele Programme unentbehrlich, da 
sie die Anzahl der Bedienungsfehler stark reduzieren. Da das 
Erstellen von Bildschirmmasken jedoch sehr muhselig ist, liegt es 
nahe diese vom Computer selbst erstellen zu lassen. DaB dies 
letch t moglich ist, zeigt unser Programm ftir den Apple II mit 
DiskettemLaufwerk. 


Na ■; h dem St des Pr og r a mmes «ird a n e i Be i sp i e I d ar ges tell t ? 

wi e ein-Fach die Bildschirmmaske e*~st©Ht wird.E^nach erscheint 

^ C l g e n d e Me ] r] 4 ..i n g ; 

ERSTE ZEILEN NR, DER MASKE 7 

Ge^eint i at die Zel 1 en — Numroer bei welchtir das zu tende ProgrAfn 

b s g i n h e n so 1 1 * D i e F rag e let d a n n von bed e u t u. n g 5 wen n die Mas k e i n s i n 
vorhande^ee Rr ogramm ©i ngef uegt werden sol 1 E Es red 1 te ■ n diesem Eal I 
ei ne hoeher e Zei 1 en— Nummer geweehl t werden als in dem vor handecv©?i* 

F>- o y r amm .* Na c h t *e«> E I ngebpn der Zed 1 s r«— Ni ? mmer k o mmen Sie in d e n 
Ha b k e n e d i t or f d er v um eine gote Ed 1 t i ermoeol i chk si t zu 
g swaeh * 3 & i ^ k en f in Mu sr h a nenspr a h e g esc h r i eb en i s t . 

F ■ a " g e* Be+ eh ' e si nd i r« dem E d > I: c -? into g r i er t 7 

.Ctrl A C •_ r s o r 1 Z e i 1 © t * o ?npr 

C t r 1 7 Cur ! Z s i ] e t i e-f er 

“> Cursptr 1 SteVle welter 

■ - r: i - r ec: f f t S t e 1 1 e zur« j. e c 1. 

Return Cursor zum naechsten Zei I enao-f any (Rest der Zeile bleibt 
er H a 1 f en ? 

Ctrl C Bildschirm wird geloescht 
Ctrl E Bi 1 cl&ch i r m^aske er f^tellen 

0 i ess Bed eh I e si n d a uc.b n och e i nma. 1 1 e Ed i t or z u sen en , H i t C t r i C 

1 o e s c: h t man d en Sc h i r m. un d b eg 1 n n t die Maske s c* z t er s t e lien w i e Sie 
so a at a u s z seh e n hat = Es i e t moeg 1 ich den g a n z en Sc h i r e b 1 s au f d a s 
reebte ur. ter e Zeichan auszu.nut^en * dabei sind a 1 1 e ASCII 

ver wendbar.Das Zei r hen > er+uahl t eine Sender funk t i on * Leber al 1 wo 

man dieses antri, -f-ft wird ein Fenst det 1 n 3 er t was spaete^ 

Va r 4, ah 1 en z ug eor i: n e t wi r d . Wer d en meht r er e sol c Z e i c h en 

a.u ei n a n d g e r-p4 H t s o ist d as Ft? n s t e? d eire 1 i sp? rec hen d b r e i t Der 

Hav k en ye* ! er a t or er 3 aub t .1 00 sol cher F en s t er mit nel i ©b i ger hrei te,Die 

Fen ^5 ter mu es s en m i h d eet e n s d u rrh e i n bel 1 ebi g.es Zei c hen g etrenn t 

werden = 

1st die hi a ^ l ^ £ or - 1 i g er s t e 1. 1 1 so dr uec k e ma n CTRL E i.\ n d der 

Has k en gen er a t or ^ eg 1 n n t z u ar bsi ten* Mach etws 1 H .1 n 1 1 1 e moec h t e c s e ^ 

Compi< t er zu jedem Fens ter einen Var i ab 1 enn amen zugeortnet naben.Si e 

t oert npn dabei a 1 1 e Ar t en von Va riabl en n amen e 1 n se t z er ,Folg e ^ i de si n d 

j ed oc h on z o I aess lg,d a r d i ose die Mask© se 1 bet benu t z 1 7 

LE: TX;TV=riE$s ZF?FI^;GE$ 

Se .1 b si v tar - s t a.en d 1 ich muss ma n j e n a r h Fen s t er e i n e St ring- oder 
n i sc he Mari ab I e a u 5 waeb 1 en = 

Wer = n all e Fen s t er ei ner Mar 1 ab 1 en z u g e or t n e t si n d , w i r d die H a s k e 
er s t e 1 1 1 n Hi e He I d un g 7 MASK E 1ST ERSTELL T T been de i d as Fr ogr ali B 


Pnmni pfrnnir' 


O"? 
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So ] 1 d i 0 Ha s k 0 in e i n aqr;amm einge-f u. eg t Her d en 5 so niuss i ina n erst 
dieses laden and dansch ' EXEC M ASKE ? eingeben* 

Die Arbei te**ei ee der Haske ist ^elativ eintacn.Nach deren Aufruf 
werderi alle Va-rsablsn in den ent?prechenden Fenstern angezeigt und in 
dem ersten Fens ter nird ei ne Eingabe erwar tet , Ti ppt man Return so 
bleibt der alts Her t bzw. String in der Verlablen enthalten und man 
koromt ins naechste Fenster * Fuel 1 1 man das Fenster ganz mit Zeichen so 
gelangt man ebentalle ins naechste Feld, Hit der Taste ESC i es 
jederzeit moeglich beliebig viele ^enster zurueck zu. spri ngen * Fenster 
an nelchen man sich gerade betindet ner den ganz In Inverse dargestellt 
da man so einen guten Deberblick ueber die Fensterbreite besitzt. 


10 


20 

REM * 

30 

REH * 

40 

REM * 

50 

REH * 

60 

REH * 

70 

REH 

80 

ONERR 

90 

HOME 

100 

PRINT 

110 

PRINT 

120 

PRINT 

130 

PRINT 

—NASK3 

170 

PRINT 
CHES ! 

1B0 

GET F! 

190 

HOME 


MASKENGENERATQR 


* <C> BE I FRANK BRALL 


* 

* 


200 


210 

220 

3.1-0 

220 

330 


340 


350 

360 

370 

380 

300 

400 

zt i 0 

420 

430 

^40 

450 

460 

470 


GOTO 1.360 

11 B I LDSCH I RM-M ASKENGENER ATOR n 
: PRINT " <C> DEI FRANK BRALL" 

: PRINT 

M B IESE PROGRAMM ERSTELLT EINE ABBRUC H- J1 : PRINT "SICHERE EINGABE 
: S DIE IN BASIC": PRINT " GESCHR IEBEN 1ST ! J1 

" PRINT "NACH TASTENDRUCK ERSCHEINT EIN BEISPIEL, " ? “ PRINT J, LEL 
HIT DEM EDITOR ERSTELLT iMURDE* 11 
If E? = "" THEN 180 

PRINT "KARTEI— NR_- “ §§§ DATUM: §§§§§§■'; PRINT — 

— print : PRINT "NAHE: §§§§§§§§§§§§ VOR 

NAME § i§§ §§§§§§ PRINT : PRINT "GEBURTSTAG §§§§§§§§ UND ORT §§§§§§§ 
§§§§": PRINT = PRINT "LET Z TER WOHNOSt: §§§§§§§§§§§*§§§§§§§§§&§§ " 

PRINT ; PRINT I PRINT "HEUTIGER WOHNORT; PL Z §§§§ §§§§§§§§§§§ PRINT 
: PRINT : PRINT 'SONSTIGE BE MERK UNGEN = §§§§§§§§*§§§§§§§§§": PRINT : PRINT 
i! s§§§§§§§§§§ §§§§§§§#§ §§§§§§§§§§ §§§§§%§§§ rt 
GET E£= IF E* - ,fi ,J THEN 210 
HOME 

in h x a 00) 5 v f 1 00 ) 5 v$U 00 ),l ( mm 

FOR I = 768 TO 880: READ El POKE I , E; NEXT I 

DATA 164,36, 169,32, 145,40, 173, 16, 192, 173*0, 192, 16,251,-72, 164,36, 177, 

40, 73, 128, 1 45, 40, 104,201, 133,208, 1*96,201, 131 - 208, 6* 32, 83,252-, 76, 0, 3* 

201, 141,240, 10,201 ? 136,240, 12, ! 66, 36* 224*39, 208, 6 

DATA 1.66, 37 , 224, 23, 240, 43, 201 , 149,208, 16* 166, 36, 224, 39, 208,5, 169, 141 
,76,79*3,230,36,76*102,3,2013 129, 208,6,32,26, 252, 76, 102,3,201,154,208 
5 6, 32, 102-252, 76, 102,3,32,237*253- 164*36, 177,40,73, 128* 145,40* 76,6*3 


DA r A 

1024 5 1152, 1280, 

76, 1704, 1832, 

I960, 1104 

] UP UT 

fi FRSTE 

ZEILEN-NR 

PRINT 

MfiSKENED I TOR " : 1 

PRINT 

: PRINT 

: PRINT 

PRINT 

: PRINT 

"CTRL Z 

PRINT 

: PRINT 

n — > 

PRINT 

: PRINT 

" M 

PRINT 

: PRINT 

"RETURN 

PRINT 

: PRINT 

” CTRL C 

PRINT 

: PRINT 

"CTRL E 

PRINT 

: PRINT 

s, § 

PRINT 

: PRINT 

1? 

PRINT 

; CALI 768: GET F 


DER MASKS 
PRINT ,s — 
CTRL A 

- CURSOR 
= CURSOR 

- CURSOR 


; zn: 


HOME, 


CURSOR 1 ZEILE HOEHER" 
1 ZEILE TIEFER" 

1 STELLE NET TER" 
i STELLE ZURUECK" 

ZUM NAECHSTEN ZEILENANFANG" 
SCH1RM LGESCHEN" 

MASKE ERSTELLEN 
HARK I EEUNGSZE I CHNEN FUER 11 
FENSTER; BEL I EB IB ANREIHBAR" 


E$ 
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480 POKE 36,0: POKE 37,0: PRINT 

490 D* = CHR* (4); PRINT D*" DELETE MftSKE' 


500 

CALL 

1002 

510 

PRINT 

D$ lf i 

520 

PRINT 

D* 11 1 

530 

PRINT 

ZN TI ! 

540 

PRINT 

ZN 11 1 

550 

PRINT 
= ZN 

ZN UI 
+ 1 

560 

FRINT 

ZN" ! 

570 

PRINT 

* 

ZN" 

580 

i 

PRINT 

1 

PRINT 

ZN w i 

590 

ZN" 

600 

PRINT 

ZN H I 

610 

PRINT 

ZN"! 


620 

630 

640 

650 

660 

670 

680 


)B ( TV ) : HTAB (TX > Z GE*=" CHR* (34); CHR* (34) " : ZE=0” : ZN = ZN 
ZN”GETEI*; IFEI*OCHR* (13) ANBEI*< >CHR*(21) THEN"ZN + 3: ZN = ZN + 


IFE I t=CHR* (21 ) THEN" ZN - I : ZN = ZN + 1 
GE*=L£FT*(ME*,LE) :GOTO"ZN + 13;ZN = ZN 
F0RZE=1TGLE: ?CHR*(32) ; ‘ NEXTZE: VTAB <TY) 

+ 2: ZN = ZN + 1 
PRINT ZN"GET EI*”:ZN = ZN + 1 

ZN" IF EI*=CHR* ( 27) THEN GE*=MF$: GOTO” ZN + 

ZN” IF EI*=CHR* (13) THEN" ZN + 8 : ZN = ZN + 1 
ZN" IF El *=CHR* (21 ) THEN" ZN - 3; ZN = ZN + 1 
ZN” IF EI*=CHR* ( 8 ) ANDZE=0THEN" ZN - 4:ZN = ZN + 1 
ZN" IF EI*=CHR*(8)THENZE=ZE-l:GaTO"ZN + 3: ZN = ZN 
ZN" IF (LE— 1 ) =ZE THEN BE*=GE*+EI*: ZE=ZE+1 : GOTO" ZN 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


+ 1 

! HTAB (TX > : ZE=0:GOTQ"ZN 


10: ZN = ZN + 1 


+ 1 

- 4: ZN = ZN + 


690 PRINT ZN"ZE=ZE+1 " : ZN = ZN + 1: PRINT ZN"? EI*5 : GE*=BE*+EI *" : ZN = ZN + 

1 

700 PRINT ZN"SDTO"ZN - 9;ZN = ZN + 1 

710 PRINT ZN" IF GE*< >" CHR* (34); CHR* (34)" THEN GE*=LEFT* (GE*, ZE) " : ZM - 
ZN + 1 

720 PRINT ZN " NORMAL ; VTAB (TY> : HTAB (TX) : FOR ZE=1 TO LE; ?CHR* (32) ; : NEXTZE” : Z 
N = ZN + 1 

730 PRINT ZN " VTAB ( TV ): HTAB <TX> :?GE*: ; RETURN ": ZN = ZN + 1 
740 PRINT ZN"HOME";ZN = ZN + 1 
750 FOR U = 1 TO 24 
760 READ Al : ST* = 

770 FOR I = ftl TO fti + 39: C = PEEK (I) - 128 

780 IF C = 64 AND F = 0 THEN F = 1;X(Z) = (I + 1) -- A1;Y(Z) = U 

790 IF C < >64 AND F = 1 THEN F = 0;L(Z) = <(I + 1) - Al) - X(Z):Z = 7 + 

1 

800 IF C = 64 OR C = 34 THEN C = 32 
810 ST* = ST* + CHR* CC) 

820 NEXT I 

830 IF F — 1 THEN F = 0 : L ( Z ) = ((I + 1) - Al) - X(Z):Z = Z + 1 
840 I = 0:T = 40 

850 IF MID* (ST*,T,i> < > " " THEN 870 

860 1=1+ l:T = T - l; IF T > 0 THEN 850 
870 IF U = 24 AND I < 2 THEN 1=2 

880 IF I = 40 AND U = 24 THEN PRINT ZN"PRINT" CHR* (34); CHR* (34)”;”; GOTO 

930 

890 IF I = 40 THEN PRINT ZN"PRINT": GOTO 930 

900 IF I = 0 THEN PRINT ZN”PRINT": CHR* C34);ST*J CHR* (34) "s": GOTO 930 

910 IF U = 24 THEN PRINT ZN"FRINT" ; CHR* (34);: PRINT LEFT* (ST*, 41 - I 
>;: PRINT CHR* (34)";": GOTO 930 

920 PRINT ZN"PRINT"; CHR* (34);: PRINT LEFT* (ST*, 40 - I);': PRINT CHR* 

(34) 

930 ZN = ZN + l: NEXT U 
940 PRINT D*" CLOSE MASKE " 

950 IF Z = 0 THEN HOME : PRINT "FEHLER !!”: PRINT : PRINT "ES FEHLT DIE 
KENN Z E I CHNUNG DER FENSTER PRINT : PRINT : PRINT "BEISPIEL: 

DATUM : §§§§§§§ PRINT : PRINT " NAME §§§§§§§§§§§ NR, §§": 

END 
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960 VTAB 24: HTAB 1: PRINT " ■' s ■ H = 

24 

970 FOR 0 = 0 TO 7 - i 

980 IF U = 24 AND VIS) - 24 THEN U = 22: VTAB 24: HTAB I: PRINT LEFT* (S 
T$ 5 39) ; 

990 FLASH 

1000 VTAB (Y(Q>>: HTAB (X(Q)>: PRINT ‘'§”; 

1010 NORMAL 

1020 VTAB U: HTAB 1: PRINT 11 VARI ABLENNAME "Q + 1 " ? ; 

1030 G* = HTAB IS 

1040 GET E* 

1050 IF Et = CHR* IS) THEN 1020 

1060 IF E$ < > CHR* (13) THEN PRINT E*; :B* = 8* + E*: GOTO 1040 

1070 y*(Q> - R*: IF G* = CHR* U3> THEN 1020 

10S0 HTAB CX (Q) ) : VTAB (Y<P)): PRINT ’‘S' 1 ; 

1090 NEXT B 

1100 HOME ; PRINT B$”MON 0“ 

1110 PRINT D*“ APPEND MASKE” 

1120 PRINT D* 11 WRITE MASKE” 

1 130 FOR H = 0 TO 2 - 1 
1140 F = 0 

1150 FOR I = 1 TO LEN (V*(Q) ) : IF MID* (V*(Q> ,1, 1) = "f 1 THEN F = 1 
1160 NEXT I 

1170 IF F = 1 THEN PRINT ZN"VTAB ( “ V (Q) " > : HTAB ( " X (Q) " ) : 7LEFT* < " V* (Q) i " _ ■■{_ 
(B) ”) ; “ 

1180 ip p = 0 THEN PRINT ZN" VTAB ( "Y (Q) HTAB ( "X (Q) ME*=8TR* < ”V* <Q> '• > ; 

7RIGHT* ( ME* . " L < Q ) " ) ; '■ 

1190 7N = ZN + 1 : NEXT B:F = 0 
1200 FOR Q=0 TO 7 — 1 

1210 PRINT ZN"TX— “ X (Q> TY="Y (S) " : LE="L (O) : ZN = ZN + 1 

1220 FOR 1 = 1 TO LEN (V*CQ>); IF MID* <V*(S) ; I 5 1) — "*■' thfn p — i 
1230 NEXT I 

1240 IF F = 1 THEN PRINT ZN“HE*= " V* (Q) “ ; GOSUB , ‘NR: ZN = ZN + 1 

1250 IF F = 1 AND Q > 0 THEN PRINT ZN"IF FT* =CHR* (27? THEN" ZN - 6:ZN = Z 

N + 1 

1260 IF F = 1 THEN PRINT ZNj V*(B> ''=GE#"I ZN = ZN + 1 

1270 IF F = 0 THEN PRINT ZN”MF*=righT* (STR* ( "V* (Q) ” ) , "L CQ> " > * GOGUB"NR" : I 

FBE$='' CHR* (34) ? CHR* (34)“ THEN’'ZN: ZN = ZN + 1 
1280 IF F = 0 AND Q > 0 THEN PRINT ZN“IF El* =CHR* ( 2T> THEN '■ 7N - 6: Zw = Z 
N + 1 

1290 IF F = 0 THEN PRINT ZN: V* (Q> "=VAL ( GE* ) 11 : ZN = ZN + 1 
1300 F = 0: NEXT Q 

1310 PRINT ZN" REM * EMDE DER MASKE *“ 

1320 PRINT D*“ CLOSE MASKE" 

1330 HOME ; PRINT “DIE MASKE 1ST ERSTELLT l " % PRINT : PRINT ; PRINT "DURC 

H DEN BEFEHLE 

1340 INVERSE : PRINT “EXEC MASKE 11 ;: NORMAL : PRINT : PRINT »W1RD SIE in D 
EN SPEICHEN GESCHRIEBEN, " 

1350 NEW ; end 

1360 REM *** FEHLERKONTROLLE *■** 

1370 GE = PEEK (222) 

1380 IF QE = 6 THEN 500 

1390 PRINT CHR* (7): PRINT D* “CLOSE MASKE" N 

1400 PRINT : INVERSE : PRINT “FEHLERCODE “QE: NORMAL : END 
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»Inventur« 


Programmbeschreibung: 

Das Inventurprogramm lauft auf dem 48k Spectrum. Es eignet 
sich fur alle Bereiche des taglichen Lebens, wo Daten anfallen 
und verwaltet werden sollen. 

Fiir kleine Buros kann unser Programm erhebliche Arbeits- 
erleichterung bei der Datenerfassung bringen, vorausgesetzt 
naturlich die zu verwalteten Daten werden regelmaftig in die 
Datei eingegeben, Ein sehr nutzliches Programm fur die spie- 
lende Zukunft unter den Programmierem. 

Das Programm startet normalerweise von selbst und macht 
dutch eine Melodic auf die Einsatzbereitschaft aufmerksam. 
Wird das Programm von Hand gestartet, so darf das nur dutch 
»Go To 1« geschehen. 

Dies mufi beachtet werden, da die Daten fest an das Programm 
gebunden sind und durch »RUN« geloscht werden, 

Aus demselben Grund mufi nach jeder Eingabe oder nach jeder 
Anderung das Programm abgespeichert werden. Dies geschieht 
innerhalb des Programmes. 


Vorbereiten des Programmes: 

Die Zeilen 520-527 sehen im Urzustand folgendermafien aus: 
520 DATA „x” „x”, „x” 

Die ,,x” in diesen Zeilen miissen nun durch die Namen der 
Bauteile ersetzt werden, z. Beispiel : 

520 DATA „Teil l” „Teil 2” „x”, „TeiI 42 
Innerhalb des Programmes muU jetzt erscheinen: 

A - Teil 1 
B = Teil 2 
C - Teil 3 

Die mit „x” besetzten Stellen werden ausgelassen! 


Jetzt kann das Programm mit^GOTO 1” gestartet werden. 

Urn die Arbeitsgeschwindigkeit des Programmes moglichst grofi 
zu halten (vor allem beim Suchen der Bauteile), sollten die vor- 
handenen Bauteile auf moglichst vielen Kennbuchstaben ven 
teilt werden, da miner nur unter einem Kennbuchstaben ge- 
sueht werden mu&. 
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Datum 

Wird die Abfrage nach dem Datum mit » Enters liber spr ungen, 
so bleibt das zuletzt eingegebene Datum erhalten. 

Maske 1 

Erfassen 

Es erscheint die tabellarische Auflistung der moglichen Bauteile, 
die dutch die dazugehorigen Kennbuchstaben ausgewahlt wen 
den konnen. 1st dies nicht der Fall, so siehe unter hi. 

Nach der Eingabe des Buchstaben erscheint unter der Tabelle; 
Wert/Bez. des Bauteils 

Hier kann eine beliebige Zeichenkette bis zu 8 Zeichen einge- 
geben werden, nach der der Computer das Bauteil sucht. 1st das 
Bauteil mit diesem Wert noch nicht erfafit, so erscheint; 
Bauteil noch nicht erfafit* 

Soil erfafit werden 1 

Die Eingabe »N« lafit von vorne beginnen. 

Die Eingabe »]« druckt folgendes aus: 

»Anzahl« 

«Preis« 

Nach diesen Eingaben wird das Bauteil mit den eingegebenen 

Werten gespeichert. 1st der bisher vorhandene Speicherplatz 

aufgefullt, so wird der Speicherplatz erweitert. 

Dies geschieht in Schritten von je 10 Datensatzen und 1st bei 48 k 

Spectrum bis max. 730 Datensatzen moglich! 

Bei grofierer Speicherverfiigbarkeit darf die Grenze von 999 

Datensatzen nicht iiberschritten werden, 

■ 

Wird das Bauteil mit dem Wert gefunden, so meldet sich der 
Computer mit 

»Andern«. 

Beim Addieren mufi kein Rechenzeichen eingegeben -werden, 
dagegen beim Subtrahieren ein Minuszeichen. 

1st der Bestand auf 0 abgesunken, erscheint: 

>Soll geloscht werden ?« 

Ein »j« lafit das Bauteil mit diesem Wert verschwinden, wobei 
der Speicherplatz durch neue Werte aufgefiillt werden kann. 
Andernfalls erscheint 

»Bitte Bestatigen « 

Das Bestatigen mufi mit der »Return«' bzw. >> Enter «Taste ge- 
schehen und wird durch ein Piepsen angezeigt. Erst dann wird 
der geanderte Wert ubernommen! 

Kontrolle 

Es wird nach dem Kennbuchstaben gefragt, der das entspre- 
chende Bauteil festlegt. Wird diese Abiiage mit »Enter« liber' 
sprungen, so wird eine Gesamtliste der gespeicherten Bauteile 
mit Wert, Anzahl und Preis erstellt. 

Entsprechend geschieht dies, wenn ein Bauteil vorgewahlt 
wurde, nur mit diesem Bauteil 

Die Abfrage »Drucken?« sollte mit »j« beantwortet werden, 
wenn ein Drucker angeschlossen ist und ein Ausdruck ge- 
wunscht wird. 


Abspeichem 

Das Abspeichern des Programmes geschieht innerhalb des 
Programmes. Aus Sicherheitsgrunden sollte dies immer zweimal 
geschehen, wie im Programm festgehalten, 

Der Programmname ergibt sich aus »inv,« und dem jeweiligeh 
Datum. z.B. »inv*0L0L<c 




Programmablaufplan fur Inventur 
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Variablenliste 


B § ( ) 

Var. f I Datensatz 

50-730 

C§{ } 

Ubergabevar, bei Erweitern 

1 

Z1 


0,1 

Z2 


0> 

Z3 


0,1 

be 

Zeiger f, Ton 

1 

Ih 

Luekenzahler 

0- 

a§ 

letzte Eingabe 

(A) 

ss 

Adressenmerker 

(ZZZZ) 

D§ 

Datum 

(AAAAAAAAAA) 

t§ 

Input-Ubergabevariable 


il 

E i ngabefeldlange 


Zeilen 

Belegung 


400 

Dim 1 


500 

Dim 2 


900 

Datum 


1000 

Steuermodul 


1200 

* Speichererweiterung 


1400 

* Liicke sue hen 


2000 

Maske 1 


2500 

Maske 2 


4000 

Saven 


5000 

* Suchen 


5100 

* nicht gefunden 


5200 

* Erfasseti 


5400 

* Gefunden 


7000 

Inventur 


8000 

* Loschen 


9500 

* Input 



* kerne eigenstandigen Module 
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FI - 

V i 3 Pi 3 i 

stor 

F; - 

D i o d p 

C =s 

3 p * r & g 

L e r 

D = 

Tyri stor 

E* 

T r i a c 


F » 

C-MOS 


TTL 


H- 

X C — H L L ’3 ■ 

Z~ 

nnzeig 

i£ e i w ^ . 

■J = 

R o e h r«n 

K = 

i d ers 

t . 0 - 2 

L = 

U iderst, SU- 

M ~ 

I - r 1 m m e 

r 

N = 

SP » T r i rn rn e r 

n - 

P o t. i 


P ~ 

NT C-PT C 

0 - 

E L K o £■ 


p ~ 

T a n t a L & 

S 3“ 

C £■ — F o L 

i a 

T = 

c s -Ke r a m i K 

u ® 

u ^ ^ r i x 

in rn e r 




z. - t.nde 


e: i 1 1 e k e n n b u c r. s t. a os n e x n geben 


R “ 

T r a n s i s t 

o r 

B a 

O i o d e 

c = 

5 p . r e g L a 

r 

D ~ 

T '.j r i s, t o r 

E« 

T r i 5 c 


p* 5a 

C - M 0 S 

L? — 

TTL 


H = 

IC-n L 1-9 . 

I * 

R 11 zei9^e 

L e » 

. J ss 

Roeh r e n 

K “ 

u i d e r s t - 

0 , E! 

L- a 

W iderst . S u 

M.S! 

T r i rn rn & r 


N = 

S p . T r i rn rn e r 

n s: 

Po t x 


p a 

MTC -PTC 

ill == 

E L K O 3 


R = 

T a n t a L s 

3 sk 

C £ F O L i S 


T ~ 

C a — K e r a rn i K 

U = 

Cs ™ T r i rn rn 

£ f 



u e 

r t. y p e z e i e 

h n u n 9 



de 

S B a u t e i L 





Rnzeig.ee u . 
d 170 ? 
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sou e 


r fas $ t warden 


10 REM 


COPYRIGHT 


M Q PT T M ^QHI F F I P> 


11 GO TO 100 


19 FOR X=30 TO URL (bS (29 . 14 TO 161 ) : LET b« (X , 10 TO 13)=" 

0 ” : NEXT X : STOP 


20 FOR £=23000 TQ 48000: IF PEEK Cxi <14d AND PEEK 00148 T 

HEft PRINT CHRS (PEEK ( X ) ) ; : 

91 NEXT X 
29 STOP 

50 FOR X si TO URL (bi (29 , 10 TO 13)1: PRINT "bSC ;x; ") = " 


b 

* ( X ) : 

NEXT 

X 





5 1 

IF 

IN KE 

Y £ 

^ ii li 

TH 

EN 

1 

00 

CLS 

; G 

Q 

SUB 

Q Q 

98 

5 

00 

REM 




O 

IM 

5 

01 

BORDER 

6 




5 

05 

RESTORE 





5 

11 

DRTR "d 

i i 

0.56 

, 68 , 


RERD a 

PCI 

KE 

IJ3R 

f 

£ 4- 

5 

12 

GO 

TO 5 

30 




5 

IS 

LET 

l.h = 

0 




5 

19 

DIM 

b* ( 

50 

. 22 ) 




GO TO SI 


68 , 4-0 , 40 . 10© . 0 : 
X,a: NEXT x 


PERL f * 


FOR X = 1 TO 8 


."Diode" ."So.realer 
■ R t. I q . " . "flnzeiqee L e . 


S20 DRTR "Transistor 
a c " . "C-MOS" . "TTL " . " IC 

"Uiderst . 0.2S" . "Uiderst . 

"Poti" . "NTC-PTC" , t. fcos " . "Ta nta is " 

1 Cs -T rimmer" . " x " . " x ^ , x. . " x " . "Ende" 

LET bl(X ,1 TO 13) =qi 


"Turistor 


‘Tr i 


521 DRTR "Roeh ren 
"Sp .T rimmer 
Cs -Ke r am i K l ' 


5U" , "Tr i mm 
"Cs -Fo f. i 




O 

54-0 
54S 
SS0 
S60 
800 
©10 
900 
910 
920 
1000 
1050 
1060 
1082 
1065 
106? 
1070 
1100 
1101 
1200 
12 10 
1220 
1250 
I960 
1270 
1980 
1290 


b* (27) s"SPei cherende 



TO 26 : READ q $ : 


NEXT X : G 


S 0 


28 

30 


z £ = 0 
S S = 0 
3 3=0 
"Da t u m 
GO TO 


LET i 1=10: GO SUB 9500 


930 


Steuerm „ 

SUB 2000 
SUB 2500 

Z6=l THEN LET ze=0: GO 

SS (1 THEN GO TO 1070 
SUB SS: LET sSiO: GO TO 


TO 1050 
1050 


GO SUB 5000 
GOTO 10 6.0 

PRINT "FehLer": STOP 

REM iSre i chererwei ter u n oHB 
IF be = 1 THEN BEEP .1,30 

BORDER 0: PRINT «0;RT 92.0; "Ich 

LET s.i=UAL. (b* (29,11 TO 13)) 

DIM ,C| (S.i+a® .2 2) : 1 DIM C 4 ( .ft ,i + 10 . 22 ) 
FOR X =1 TO s.i: LET CS (X) = b'i (X) : NEXT 

DIM bt tS.i+10,22) 

FOR X =1 TO s.i; LET bt (X) =C* (X) : NEXT 


e r w e i t e r e 
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Cs .i +10) 


1300 DIM C* Cl) 

1310 LET bSC29.ll TO 13) sSTRS 
1320 BORDER 7: RETURN 

1330 PRIN T "F ah Ler": STOP 

1400 REM NNHNL U i J K. U suSIUN 
14-10 IF Lh-0 THEN RETURN 
14 15 LET Ih = Ih - 1 

14-4-0 LET 5 1 sURL Cbt (29,14 TO 16) ) -1 
ld-50 FOR X = 30 TO Si: IF bUtX.lJs" 


THEN LET t. I. =X : LET 32 = 1 


M 3 S K e 1 


L ET X = S 1 
14.60 NEXT X 
1490 RETURN 

1999 5T O P 

2000 REM 
9005 BORDER 7 

GO SUB 9998 
“ Datum : 

.01 . 40 : BEEP 

RT 8,0;" Saven 9 " 

AT 6.0;" E i n '4 3 n q 1 " 

DRflU 255 . 0 : DRRU 0 , -80 : DRA U -255 , 0 : 


2010 
2011 
2 O 1 5 


CLS : 

PR I NT 
BEEP 

2049 PRINT 

2050 PR INT 


d S 

0 1.50 


2051 
. 80 


i 0 |g 


PLOT 0,150: 
PLOT 45 . 30 


DRflU 2 10.0: DRflU 0 . -20 : 


2060 PRINT RT 
2070 PRINT RT 

LET R* - INKEY £ : 
IF as-"!" THEN 
IF a £ = " 2 " THEN 
IF a4="3" THEN 


DRflU -210,0 

•i ji • m = m -J? 


DR ft U 0 
DRflU 


8050 
8000 
209 1 
80 8 8 


800 9 GO TO 2060 


10.1; "Kont roue .................. 

19,6; "Bi tte Kennzah L ei n qeben ! " 

IF 3®-"" THEN GO TO 2070 
LET K -1: GO TO 2100 

GO SUB 4000 : GO TO 2000 

LET K =2 : GO SUB 7000 : GO TO 


2000 


8100 

RETURN 





8500 

REM Hi 

Mas fc e 

i8 

bbhhhhi 

8505 

BORDER 

7 




85 10 

CLS 





8515 

, 08 , ■ 

BORDER 
4 0 

6 : GO 

SUB 

2520 

: IF be 

h“. cr ■'f p f 

GO TO 2 

5S0 




8 5 8 0 

FOR X ~ 1 

T O 8 6 




8 6 8 5 

IF bt( X 

, 1 x 

1 1 T H E N 

PRINT . 

8530 

PRINT CHRS (X 

+ F, 4. ;i 

* i l M 

" : b * ( V , 

8 5 4- 0 

NEXT K 






01 ■ 50 : BEEP 


G O TO 2540 


c h s t a b en ei n a e b e n 


2550 PRINT RT 19 .0; "Bi tte Kennhi 
2555 RETURN 

2570 LET e 4 = INK,EY4 : IF e ® = " " THEN GO TO 25 70 

2578 IF £® = "Z" THEN LET ze = l: R . ET U R N 

2 5 8 0 L ET 1 . b := C Hi O E !et)-96 

258-5 IF be = 1 THEN -IF lb >.-50 THEN BEEP 

25 90 IF I. b ■! 1 Ci P l.. b >26 THE M G O TO 2 5 7 0 

26 00 IE b t ( I b , 1 1 - " % " THE M G O TO 2570 

2810 LET n £ = b£ C I b , 1 TO 12) 

2700 PRINT RT 19,0; " 


.01, t, b 


O 700 


PRINT 

RT 

d e s E 

5 a 

u t e 

i L S 

1 1 ■ 

8730 

L 

.ET 

i. L a 

10 • 

8750 

L 

ET 

ill & ~ 

i £ 

8760 

L 

.ET 

Hi £ - 

w £ + 


1,0: P R I M T ' * t-J s r t B 7 j r h n i 1 n n 

PRINT : PRINT n£ ' " ' 


i U S U 6 


100 


87 99 RETURN 


LET ih £ ( l TO 6 3 
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4000 
4010 
4090 
4 030 
4 035 
4 04 0 

4 099 
500 0 

504 0 
5050 

505 0 
i C h t, 

5065 
3070 
5080 
5100 
51 10 

5 190 
5130 
5140 
5150 
5 160 
5170 

I 

5130 
5 190 
5900 
5905 
5990 


REM MHH saven 
LET 34 = "lnv."+d4( TO ‘ 5) 

PRINT rt 8,li "save ";aS!" “ 

SR'JE a* LINE 1: BEEP .1,40 
SRUE a* LINE 1: BEEP 1,40 
BEEP .01.40: IF IN KEY * = " “ THEN 

RETU RN V- 

REM NHMRS IJ C : § ij N MHH 
LET nb =0305 (ei) -96 

IF bttnb.a TO 9)=WS THEN 90 TO 5400 

IF hi (nb , 14 TO 16 J =" " THEN PRINT 

qespei chert." : GO TO 5100 

IF bi (URL. !b*(nb,H TO 16) ) ,2 TO 9 ) > 
LET Lb=nb: LET nb = URL (batch. 14 TO 

GO T O 5050 

REM i c h t „ funden 

IF I 1 = 1 THEN GO TO 5170 


GO TO 4040 


RT 18 


> W S THEN 
i e ) ) 


PRINT RT 19,0; 

LET a a = INKEY a ; 

IF ats" .i " THEN 

IF aa=“n" THEN 

GO TO 5130 

PR I NT RT X 9,0; 

LET V 2 = X 9 + 1 : 

RETURN 

STOP 

REM ■■■ URuHSSUN 

BORDER 9 

PRINT RT 18,0: " 


s o L ! e r f a s s t iij erden o “ 

IF a a = " " THEN GO TO 5 130 
GO TO 5900 
RETUR N 


b* (CODE (a * (1) 3 


IF 


2 > 2 1 THEN 


- 96.1 TO 13 ) 
LET X 9 = 1 


5930 PRINT RT 14 . 14 ; 11 Rn Z a h L " : PRINT RT 15.14; 

5940 LET i L =5: PRINT RT 15,14; : GO SUB 9500: LET 

5245 FOR X = 1 TO LEN (£*) : LET a*=5* (X) : IE CODE 

ODE (a a) >57 THEN GO TO 5240 

5246 NEXT X 

5250 PRINT RT 14,24; "PreiS" I RT 15.23;: LET i l =6 : 

5300 let wa=wa+“ 

5310 LET a a =S a + " 

5330 LET 1.1= URL (b® (29 , 14. TO 16)) 

5335 GO SUB 1400: IF Z2 = l THEN LET Z 2 =0 : GO TO 

5 34 0 LET b a (29 . 14 TO 163= ST P a ( U + 3 3 

5350 LET ba ( L L 3 =e a ( 1> +i,i.i a ( 1 TO 83+aatl TO 4)+bSCn 

i a 

5360 LET b a ( n b . 1 4 TO 1 6 3 = ST R a (Lb) 

5370 IF URL (b® (29, 11 TO 13) ) <=URL (b® (£9,14 TO 
O SUB 1200 

5399 RETU RN 

5400 REM M GUOUNouN HHMMM 


5410 IF Z 1 = 1 THEN RETURN 
5440 PRINT RT 11,0;" 

54 45 LET S3=URL (b® (fib,10 TO 13 3) 

5 4 50 PRINT RT 1 4 , 1 4 I ‘ " S t C Y-. . ";S3 

5456 PLOT 160,44: DRRU 30.0 

5460 PRINT PT 1 5 . 1 9 ; • ' a e n d e r n 

5470 LET iL =4: GO SUB 9500: IF ilO"" THEN LET 

5475 IF i a = " " THEN LET £2=0 

5480 LET Si =£3 +5 2: PRINT RT 17 , 20 ; S 1 

5482 IF S 1 > 0 THEN GO TO 5490 

54-84 PR I NT RT 20,0; "SO l I. q e L O (=: £ C h t W STden '? " 

5485 LET a®=INKEY®: IF 3®<>"" THEN GO TO 5485 


0; "Bautei ( n 
GO TO 5100 


" ; w a : 

s a = i a 

(a a) <48 OR C 
GO SUB 9500 

5350 

b , 14 TO 16) + 
16) ) THEN G 


£ 2 = URL (ift) 


flnmni itmnir. 
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LET a S= INKEY*: IF 34="" THEN GO TO 5406 

IF als-.i" THEN GO TO 8000 
PR I NT RT 30,0; " 

P R I NT S0! "Bi tte Bestaetiqen ! " 

L FT a 4 = 1 N K EY * : IF a £ < > " " THEN GO TO 54-91 

LET a4 = INKEY4: IF 3* = "" THEN GO TO 54-92 

IF a * < >CHRS <: 13) THEN GO TO 5990 

LET btlnb.10 TO 19) aSTR* (?,1) : BEEP .1.30: PRINT " ■" : 

PAUSE 10 

5990 RETURN 

(5959 R ET U RN 

7000 REM H I MOUNT UR M 

7010 BORDER 6 : CLS 

7050 GQ SUB 2520: REM PRINT RT 3,0, "Bautei l 7" PRINT RT 19 

, 0 ; Bit t e k. e n n b u c h s f a be n e i n qe ben 1 

7060 LET a Sc: INKEY*: IF a * < > " " THEN GO TO 7060 

7070 LET a * - INKEY* : . IF 3 * = "" THEN GO TO 707O 

7075 PRINT RT 19,0;" 

7030 IF a SssCHRS (13) THEN LET a cl : GO TO 7092 

7085 LET z3=l 

7 090 L ET a = C O D E ( a * ) - 9 6 

7 091 . IF a < 1 O R a >26 THE M GO TO 7060 

7092 CLS : PR I NT RT 3 , 0 : "Dr u c Ken 7 " 

7093 IF IN KEY* <>" " THEN GO TO 7093 

7094 LET X * = IN KEY * : IE X « = " " THEN GO TO 7094 

7 09 5 IE X$ = ".i" THEN GO TO 730 0 

709F, LET 7 7 = 0 : CLS : PRINT RT 2 , 0 ; " B a U t e i L 

preis" : PRINT " 

7100 LET 7 = a : IF b .* ( a . 1 ) = " X ' ! THEN LET 3=3+1: 

7110 IE b * t a . 1 4- TO 16) s" " THEN LET a=a+l: 

7 120 LET n S = b * ( a , 1 TO 12) 

7125 IF b S ( Z , 1 4 TO 16)*" " THEN GO TO 7200 

7130 LET 77 =77 +1: LET 2 =URL (b« (2 ,U TO 16) ) 

7 14.0 LET P * = b * < 7 , 1 7 TO 221 

715 0 LET w * = b'S < 7 . S' TO 9) 

7155 LET s**b*CZ.10 TO 13) 

7160 print n * ; ('.I * : " ";s*; " " : p * 


U ert StcK. 

GO TO 7100 
GO TO 7100 


54-86 
54-87 
54-83 
54-90 
54 9 1 

5492 

5493 


7190 

7200 

7210 


7220 LET Z 
7225 PRINT 


GO TO 7125 

LET a * = I N KEY * : IF a * = " ' 

IF 23*1 THEN LET 23=0: 

= 77+1: 


,Tj VTB. 0 

7240 
7 30 0 


LET a = a + 1 

GO TO 7100 


THE N GO TO 
RET U R N 

IF a >27 THEN 


7200 

RETURN 


IF 77 <16 THEN 
GO TO 7096 

GO SUB 7301: GO TO 7330 


7301 POKE 23316.2: 


-= ■=* 0 5 POKE 23342,0: R 
5,170' POKE 25325 , 2 : 
-CENTER ESChUEGE" 


POKE 23355,66 
P O K E 


2 3 3 4 6: . 2 2 0 

■ ■ rj j*. i 

o' -,^| a. 


POKE 


PO KE 
9: CL.: 


23344 - , 175 
: PRINT 1 


P OKF P 3 3 4 
ELEKTRONIC 


7310 COPY 


-73 10 

:l@6 

POKE 23325 . 
Te i. e f on 0 5 

IT. 6 1 

L PRINT : 

6 0 255 

L PR I NT ' ' 3 4. 4 0 E S C H U E G E 

i t 

N FUST RDT 

73 20 

■ I r“, 

LET 77=0: L 

ta f r k 

PRINT : 

CO 

L P P I NT : L P R I NT. "Baut 

e i l 

T 

M P 




1 i 




7730 

LET 7 =a : IF 

b $ 

( a - l > 

= ' ' ;< 1 1 

THE M L. ET a = a + 1 : 

G O T O 

7 3 3 0 

7340 

IF b * ( a , 14 

TO 

16) » 1 1 

i ■ 

THEN LET a = a + 1 : 

GO TO 

7330 

7 3 3 0 

L ET n * = b * t a 

, 1 

T 0 1 £ 

1 




7 3 3* 0 

IF b * ( 7 , 1 4 

TO 

1 3U -=s ' J 

1 1 

THEN GO TO 7420 



7 3 70 

Ij l.i 

LET 77=77+1 
SUB 7301 

: L 

ET T ± 

URL 

( b * (2 , 14 TO 16 ) ) : 

IF 7 7 

> =59 THEN 

7 3 3 0 

LET tuS*b£ (7 

p £! 

t o s ;i 





7 3 00 

LET SS = bi C 7 

. 10 

TO 1 

3 ) 




7400 

L PRINT n * , ; 

1 1 

II 

; mi $ ; 

" " ; s * ; " 

' 1 ; b * ( 

7 , 17 TO 2 


2 ) 


Hrimni Jt.rnnin 


ZX Spectrum 


74.1.0 GO TO 7000 

74.00 IF Z3 = l THEN LET 2 3=0: RETURN 

7440 LET ZZaZZ+l: LET 3=3+1: IF a >37 

PR TNT : NEXT X : L ET 7. Z =0 : RETURN 


THEN 


FOR 


= 77 TO 


Gp T O 


7 O O 0 


LPRINT 

IF 7 7 -<S9 THEN 
G O TO 7 0 0 0 

b * C l b . 1 4 TO. 1 6 ) - b ft f n b , 1 4 T O 

ET L h “ I. h + 1 : L ET b 4(nb) a " '* 

0070 RETURN 
■3000 STOP 

3500 REM — I— I N P Li T HHMR 
3510 LET LET 7Z~0 

Q54-0 FOP X=1 TO i I. ■ PRINT 
"CHRft tS'i ; ■ NEXT >; 

3 55 0 IF I N K EY ft < > " " T HEN 

L ET' flS = I N E EY ft : IF SS = " 

IF be = 1 T H E N BEEP . 0 1 

IF 3ft = O H F! ft ! 1.3) THE M 


74 50 
7 4 5 0 

7 4 7 0 
8000 REM 

8 0 5 0 L. ET 
8 0 60 


1 F. j 


q f; 
cif? 5 3 
9 5 F, 0 
OS65 
g 570 


" „ *' : ■ NEXT X 

GO TO 9550 

T H E M G O T O 

CODE i- a ft i --5 
G O T O 3 6 3 0 


F O R ;< = 1 T O i 


P 5 5 5 


T F 7 7 1 T H E N G O T O 9 5 7 1 

IF 3 ft = C HR* ( 1 a ;i T H E N L ET i ft = :L ft < 1 TO jLE N i 

CHPft 8 ; " , " ;.CHR4 CEO ; L ET 77 =72 -1 • GO TO 3550 


ft - 1 f ) 


9 6. 0 0 

L ET T ^ 72 

I ft + H ft ■ l 

. FT 

7 Z = 7 Z + 1 : 

PRINT 3ft: 

3 6. 1 0 

X p ZZ <■ X 

L. T H E N 

GO 

TO 9550 


3 6' 3 0 

POP X -z 

7 TO 1 !. ■ 

- a ■ 

PRINT " ’ 

' ; : NEXT X 

3 6 3 3 

R ET U R N 





9 9 3 8 

C L 5 : 

IF PEE K 

r a 

3 0 3 X J < > 0 5 

THEN BEEP 

3 9 9 9 

PET U R N 






10 . 4 0 


G n t 


58 : L. 


PRINT 


PR I NT 


"i Q Q Q P; 


Compiftronic 


49 


n-99 


Drei-KronervSpiel 


Fur den TI-99/4A in Extended Basic 

Das Drei-KronervSpiel ist einem Geldspielautomaten nadv 
empfunden, wie er in jeder Gaststatte hangt* 

Eingabe des Geldbetrages: 

Nachdem der Computer den Bildschirm aufgebaut hat, erwartet 
er die Eingabe eines Geldbetrages. Dieser mufi mindestens 0,30 
bzw. darf hochstens 99,9 DM sein. Hierbei ist das genaue Setzen 
des Punktes zu beach ten. 

Beispieh 

Eingabe Eins Punkt Zwei Null Bedeutung: 1,20 DM 
Eingabe Eins Zwei Punkt Null Bedeutung; 12,00 DM, 
hierbei wird die letzte Stelle ausgespart. 

Jeder Spieldurchgang kostet 0,30 DM und wird von dem Geld' 
speicher automatisch abgezogen* 

Start und Stop der Waken: 

Sollten auf den ersten beiden Waken zwei Geldbetrage er- 
scheinen, die Each nicht gefallen, so konnt Ihr diese beim Auf- 
leuchten des Wortes » STARTs erneut in Gang setzen. Um die 
mittlere Wake zu stoppen, braucht man nicht zu warten bis der 
Computer es rut, sondern kann dies beim Aufleuchten des 
Wortes »STGP« dutch drucken einer Taste erreichen. 

Gewinne: 

Hier in tabellarischer Form die Gewinnmoglichkeiten. 



Linke Seite 

Mitte 

Rechte Seite 

Gewinn 

1 . 

0.40 

0*40 

Krone 

0.40 

0,40 DM 

2. 

0.60 

0*60 

Krone 

0.60 

0,60 DM 

3. 

0.80 

0*80 

Krone 

0.80 

0,80 DM 

4. 

1.20 

1.20 

Krone 

1.20 

1,20 DM 

5. 

1.60 

1*60 

Krone 

1.60 

1,60 DM 

6. 

1.80 

1*80 

Krone 

1.80 

1,80 DM 

7. 

2.40 

2.40 

Krone 

2.40 

2,40 DM 

8. 

3.00 

3.00 

Krone 

3.00 

3,00 DM 

9. 

Wappen 

Wappen 

Wappen 

3,00 DM 
+ 5 Sonderspiele 

10. 

Wappen 

Krone 

Wappen 

3,00 DM 
+■ 10 Sonderspiele 

11. 

Krone 

Krone 

Krone 

3,00 DM 
+ 20 Sonderspiele 


Gewinnbalken : 

Auf der rechten Seite des Bildschirmes sind 11 rote Balken, die 
zum Erreichen der Superserie benotigt werden* Sollten alle 
Balken weift sein erkllngt eine Tonfolge und Ihr habt 50 Super- 
spiele gewonnen* Dieses sogenannte Aufleuchten der Balken 
wird erreicht, in dem Ihr mindestens einmal jeden der 1 1 oben 
aufgefuhrten Gewinne erzielt* 

Bfl 


Bei spiel : 

Bei einem Gewinn von 0.40 0.40 bzw. Krone 0.40 wird der 
unterste Balken weifi; bei 0*60 0*60 bzw* Krone 0*60 wird der 
iweice Balken von unten weiB usw. 

Wie Ihr seht, ist es nicht einfach an die Superserie zu kommen. 

Gewinn in der Serie: 

Jeder Gewinn in der Serie betragt 3,00 DM. 

Gewonnen wird bei: 

a) drei gleichen Gewinnhetragen 

b) der Krone in der Mitte 

c) dem Wappen in der Mitte 

d) von 0,40 DM in der Mitte 

RISIKO'Taste: 

Dieses Risiko hat den Sinn die Spannung bei einem Gewinn zu 
erhohen* Es erscheint im unteren Teil des Bildschirmes das Wort 
»RISlKO« und cin Farbband, das in schneller Folge die Farbe 
von rot nach weifi wechselt. Die Bedeutung der Farben sind : 
rotes Band - Verlust des Gewinnes 
weifies Band - Verdoppelung des Gewinnes 
Es liegt in Eurer Hand, wenn Ihr versuchen wo I It das weiile 
Farbband durch drucken einer Taste zu treffen. Fur etwas angst- 
lichere Spieler bedeutet das Nichtdrucken einer Taste keinen 
Verlust des Gewinnes; sie bekommen halt nur den einfachen 
Geldbetrag* 


Viel Erfoig! 



rinmni (tnnnin 
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D re i-K ronen-Spiel 

5 CALL CLEAR 
10 DIM D$ (10) 

15 RESTORE 20 : s FOR A- 3. TO 10 : ; READ C$ 



CALL SCREEN! 2) 


20 

DATA 

0 « 40 s 0 * 

25 

m (A) 

IMI 

30 

") 

CALL 

CHAR <136 

33 

CALL 

CHAR C 139 

40 

CALL 

CHAR ( 142 

45 
11 ) 

CALL 

CHAR <129 

5 0 
"> 

CALL 

CHAR ( 1 20 , 

55 

"> 

60 

CALL 

CHAR <123, 

CALL 

CHAR <113, 

65 

CALL 

CHAR <104 

70 
0" ) 

CALL 

CHAR <36, 1 

73 
0" ) 

CALL 

CHAR <40, ! 

80 

0" ) 

C ALL- 

CHAR (92, 1 

83 
0" ) 
90 

CALL 

CHAR (96, 1 

CALL 

CHAR (100, 

C0 ]i 

) 


95 

CALL 

CHAR ( 108, 

00" 

> 



138, " 00000000000 0 F F F F 




’FFF" ) 


100 CALL CHAR < 1 16, " 0 3 0 7 0 E 1 C 3 8 7 0 E 0 C 0 0 0 0 0 0 0 0000000000 O 00 0 0 0 0 0 0 0 0 0 0 0 0 O 0 00 0 0 00 0 000 0 0 
000") 

1 05 CALL CHAR ( 1 32 , " OOOOOOOOOOOOOOOOCOE07G381 C0E0703C0E0703S 1 C0E07030000000000000 
000") 

110 FOR A=4 ' TO 20 ; ; CALL HCHAR (A, 1 , 120, 26) : : NEXT A 
115 FDR A= 1 TQ 24 :: CALL HCHAR CA, 27, 125, 6) ; : NEXT A' 

1 2 0 C A L. L HC H A R (3, 1 , 113, 26) : : CALL. HCHAR (21 , 1 . 1 1 5 . 2 6) s : C A L L V C El AR (1,27,136, 2 4 ) 

1 25 CALL HCHAR (1,1,115,26); : CALL HCHAR (24,1,113,26) 

1 30 CALL HCHAR ( 1 , 27 , 1 39 , 6 ) : : CALL HCHAR (24 , 27 , 1 38 ,6) s : CALL HCHAR ( 1 , 27 , 1 40 , 1) : s 
CALL HCHAR (24,27, 142, 1 ) 

135 FOR A=2 TO 22 STEP 2 CALL HCHAR (A, 29, 104,3) : : NEXT A 

140 RESTORE 145 :: FOR A=1 TO 6 :: READ B1,B2,B3 

1 45 DATA 2, 6, 3, 2, 16,6, 22 ,6,5, 23 ,6,5,22, 15,7,23, 15,7 

ISO CALL HCHAR 125, B3> s : NEXT A 

155 RESTORE 160 s: FOR A=1 TO 3.5 : : READ B1,B2 

1 60 DATA 6, 6, 7, 6, 8, 6, 6, 18,7, 18, B, 18,11,12,12, 12, 13, 12, 16,6, 17,6, 18,6, 16, IB, 17, 18 
, 18, 18 

i 65 CALL HCHAR < B 1 , B2 , 125,4) s s NE X T A 

170 CALL HCHAR (1,6, 1 39 ,3) : : CALL HCHAR ( 1 , 16, 139,-6) : : CALL HCHAR (21,6, 1 39 „ 5 ) : : CA 
LL HCHAR (21, 15, 139, 7) 

175 GALL HCHAR (3, 6, 138, 3) : ; CALL HCHAR (3, 16,138,6):: CALL HCHAR (24,6,138,5);; CA 
LL HCHAR (24, 15, 138, 7) 

180 CALL HCHAR (1,5,140,1):; CALL HCHAR (1,9,143,1):; CALL HCHAR (3, 3, 142, 1 ) : : CALL 
HCHAR (3, 9, 141 , 1 ) 

1 85 CALL HCHAR (1,15,140,1):: CALL HCHAR (1,22,143,1):: CALL HCHAR (3,15,142,1):: C 
ALL HCHAR <3.22, 141, 1 ) 


TI-99 


190 CALL HCHAR(21,5 ? 140, 1)5 s CALL HCHARX21 , 1 1 , 143, 1 > : : CALL HCHAR <24, 5, 142, 1 ) : : 
CALL HCHAR (24, 11, 14-1, 1) 

195 CALL HCHAR <21, 14, 140, 1) s : CALL HCHAR (21 „ 22* 143, 1 ) : s CALL HCHAR (24, 14 , 1 42, 1) s 
: CALL HCHAR (24*22, 141, I) 

200 RESTORE 205 :: FOR A=1 TO 5 ss READ B1 P B2 
205 DATA 5.6.5. IB. 10. 12- 13-6- 15. IB 


6,25;: CA 
CALL 9 CHAR < 22 ,11, 1 37 P 2 ) : s C 


210 CALL HCHAR(B1,B2, 130,4) s : CALL HCHAR (Bl+4, B2, 128, 4> : : NEXT A 
215 RESTORE 220 :s FOR A=1 TO 5 :s READ B1 P B2 
220 DATA 6,5,6, 17, 11, 11, 16,5, 16, 17 

225 CALL VCHAR <81,02, 131,35 : : CALL VCHAR CFU , B2+5 ,129,3):: NEXT A 

230 CALL HCHAR <2,5,136,1):: CALL HCHAR (2,15,136,1):: CALL VCHAR < 22 , 5 , IT 

LL VCHAR ( 22 ,14,1 36 , 2 ) 

235 CALL. HCHAR (2, 9, 137, 1 ) : : CALL HCHAR (2,22, 1 37 , 1 ) 

ALL VCHAR ( 22 , 22 , 1 37 , 2 ) 

240 RESTORE 245 s : FOR A~1 TO 5 s: READ B1 ,B2 
245 DATA 5,5,5,17,10,11,15,5,15,17 
250 CALL HCHAR (Bl , B2, 121 , 1 ) : : CALL 
, 1) : : CALL HCHAR {Bl+4,B2+3, 122,1): 

255 CALL COLOR <14, 16,6, 13,6,2, 12,5 
260 FOR A-2 TO 9 :: CALL COLOR < A, 2 
265 CALL SPR 1 TE (#1,1 00 ,2,25,25, #2 , 1 00 , 2 , 25 , 1 2 1 , #3 , 1 00 ,2,1 05 , 25 > 

270 CALL SPRITE (#4, 108, 2, 25, 73, #5, 108,2,25, 169, #6, 108,2, 105, 169) 

275 CALL SPR I TE < #7 , 96 , 2 , 65 , 25 , #8 , 96 ,2,1 45 , 25 ,#9,96,2,1 45 ,121) 

280 CALL SPR I TE (#10,116,2,65, 169, #11, 116,2, 145,73,# 1 2,116,2, 1 45 , 1 69 ) 

285 CALL SPR I TE ( # 1 3 , 92 , 2 , 65 ,73, # 1 4 , 92 ,2, 1 05 , 1 2 :!. , # 1 5 , 1 32 , 2> 65 , 1 2 1 „ # 1 6 , 1 3 
3) 


1) 


CAL L HC H A R ( B 1 , B 2 4- 5 , 124 


HCHAR (Bl 4-4,82, 123, 
i NEXT A 

,6,11,16,2,10,7, 1 6) : s CALL MAGM I FY ( 3 ) 
, 6 ) s : NEXT A 

*7 


■ If .L.. -II J- fj 


290 S$-“- 11 000 11 : : GU™ " 000 n 00 " 

295 DISPLAY AT <2, 4) SI ZE < 3) :S$ :: DISPLAY AT (2 „ 1 4) SI ZE (6) : 0$ 

300 D I SPLAY AT ( 7 , 1 0 ) S I 2 E < 4 ) : " DRE I M s 5 DISPLAY AT ( 12, 1 ) SIZE (6) s 11 KRONEN 11 s s D I SPL A 
Y AT < 12, 1 7 ) SIZE 05) s "SPIEL. 11 

305 RESTORE 310 s: FOR A-2 TO 22 STEP 2 ;s READ Bl 
3 1 0 D AT A 83 , 8 5 p 80 , 69 , 82, 4 7 , B 3 , 6 9 „ 82 ,73,69 
3 15 D I SPLAY AT < A , 26 ) SI ZE <• 1 ) : CHRU ( B 1 ) s : NEX T A 
320 FOR A=1 ID 50 s ; NEXT A 
325 DISPLAY AT <22, 13> SIZE (7) : "BETRAG?" 

330 ACCEPT AT ( 23 , 1 4 ) VAL I DATE (DIBIT, 'L 11 ) SIZE ( -4 ) : II 1 
335 IF HK0.3 XGR Ml >99. 9 THEN 340 ELSE 345 
3 40 C AL L HCH A R < 23 , 1 5 , 1 25 , 7 ) s s GO T G 3.3 0 
345 M— M+M.1 : : SDSLJB 1065 

350 CALL HCHAR < 22 p 1 5 , 1 25 , 7 ) s s CALL HCHAR ( 23 p 1 5 , 1 25 , 7 ) 

354 FOR A=1 TO 100 5 5 NEXT A 

355 REM ## LINKEN WALZEN ** 

360 B4™0 s: s: G0SU8 1065 

365 B4-D4+1 :: RANDOMIZE 
370 U=INT(RND*7+3-> 

375 XU) ~U s s H®1 7 : : V~4 

3 SO IF U*9 THEN CALL SPRITE <#20, 40, 2,. lgS, 49) ELSE GOSUB 370 
3B5 CALL NALZE (Li, U 1 ) 

390 X(4)-U1 

395 I F U 1 == 1 0 THE N CAL L SPR X TE (#21, 36 ,12,45, 49 ) ELSE D3 SPLAY AT ( 7 , 4 ) 8 1 Z E ( 4 ) : DU < U 1 ) 
400 I F B4“2 THEN 430 : : D I SPL A Y AT C 22 , 4 ) B I ZE < 5 ) s M START " 

405 FOR A™ 1 TO 50 CALL KEY CO, K , S) : :: IF S< >0 THEN 420 

410 NEXT A 
415 GOTO 430 

420 CALL HCHAR (7,6,125,4);: CALL HCHAR (17,6,125,4):; CALL DELSPR I TE ( #20 , #2 1 ) 

423 CALL HCHAR (22, 6, 123, 5.) : s GOTO 363 
430 REM ** RECHTEN WALZEN ** 

435 CALL HCHAR (22, 6, 125*5) 

440 FOR A- 1 TO 120 :: NEXT A 

445 RANDOMIZE 

450 U = I N T ( RND ^ 7 ^ 3 ) 
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455 X (2 5 =U :: H=17 : s V=16 

4 6 0 IF U-9 THEN C A L I.. BP RT TE ( #23 ,40,2, 1 25 „ 1 45 ) ELSE (305 U B 57 0 
465 CALL WAL.ZE (U..U1 ) 

470 X < 5 ) =U 1 

475 IF 01=1 0 THEM CALL SPRITE (#24, 36, 12,45, 145) ELSE DISPLAY AT (7, 16) SIZE <4) : D* <U 
I ) 

480 REM ** MITTLEEE WALZE ** 

485 FOR A= 1 TO 120 :: : NEXT A 
4 90 D I SPLAY AT (22,4) SIZE (4) : " STOP " 

495 B5==0 

500 RANDOMIZE 

505 B5= I NT < RND* 1 0+ 1 ) 

510 FOR A=1 TO 50 

515 85=65+ 1 

520 CALL KEY < 0 , K , S ) 

T-J ' 1 IF 300 THEN 550 
530 IF B5= 1 0 THEN B5=0 
535 NEXT A 
540 RANDOMIZE 
545 B5=INT(RND*1Q+1> 

550 IF B5>8 THEN 560 ■ 

555 X ! 3 ) =B5 : : D I SPLAY AT (12, 10) SI ZE (4) :D$ (B5) s s GOTO 575 

560 IF B5=9 THEN CALL SPRITE (#25, 40, 2,85,77) ELSE CALL SPRITE (#25, 36, 12, 85, 97) 

565 CALL HCHAR(Z2, 6, 125,5) : s X(3)=B5 :: GOTO 575 

570 DISPLAY AT ( H , V ) S I IE ( 4 ) : D$ CO) : ; RETURN 

575 IF J>0 THEN 950 ELSE DISPLAY AT <2, 4) SI ZE (3) ! "000" 

580 REM GEN I NNABFRAGE ** 

585 IF X < 1 ) =9 AND X(2)=9 AND X<3)=9 THEN 865 
590 IF X (41=10 AND X (5) =10 AND X ( 3 > = 1 0 THEN 805 
595 IF X ( 3 ) =9 AND X ( 4 ) = 1 0 AND X(5)=10 THEN 835 

600 IF ( (X < 1 ) = X (2) XGR X ( 1 > =X (5 ) > AND ( X < 1 ) =X < 3) XOR X<3) =9) ) THEN 620 ELSE IF ((X(4) 
=X (5) XOR X (4)=X (2)) ANDCX (4)=X (3) XOR X (3) =9) ) THEN 620 
605 IF X ( 3 ) =9 THEN 925 


610 GOT 0 11 BO 

615 REM ** R I S I KOLAUF * He 

620 D I SPLAY AT ( 22, 1 3) S I ZE C 6 ) : " R I S I KO " 

625 FOR A=1 TO 50 

630 CALL SOUND (- .1 00 , 880 , 6 ) 

635 CALL HCHAR ( 23 , 15, 112,6) 

640 CALL KEY (0, K,« S3 : : IF S=0 THEN 645 ELSE 710 



6 4- 5 C A L L. HCHAR (23, 15, 1 0 4,6) 

650 CALL KEY (0, K, SJ : : IF S< >0 THEN 775 

655 NEXT A 

660 IF ( X U ) =X ( 2 ) XOR X ( 1 ) =X ( 5 ) ) AND ( X ( 1 ) = X ( 3 ) X OR X ( 3 ) =9 ) THEN 665 FI SF 670 
665 L=1 :: GOTO 675 
670 L=4 

675 BOSUB 1225 

680 ON .XXL) BOSUB 1 095 , 1 1 00 , 1 1 05 ,111 0 ,1115, 1120, 1125, 11 30 
685 BOSUB 1065 
690 GDSUB 1010 


695 L=G : : CALL HCHAR ( 22 , 15, 125, 7) : : CALL. HCHAR ( 23 , 15,125,7) 

700 GOTO 1140 

70S REM RISIKO-GEWINN * * 

7 1 0 C A L L S 0 IJ N D < 1 5 0 0,262,3,330,3, 3 92 , 3 ) 

7 1 5 CAL L. HCHAR (23,15,125,6):: CALL HCHAR (22, 15, 1 25 , 7 ) 

720 I F (XU) *X ( 2) XOR X<i)=X<5> ) AND < X < 1 ) — X (3) XOR X (3) =9 ) THEN 730 
725 IF ( X S 4 ) - X ( 5 ) X OR X < 4 ) = X ! 2 ) ) AND < X ( 4 ) =X ( 3 ) X OR X ( 3 ) =9 ) THEN 735 
730 L-l : : GOTO 740 
735 L”4 


740 FDR As# 1 TO B 

745 IF XXL) -A THEN M=M+ ( VAL ( D$ ( A) 3 ) 


TI-99 


750 NEXT A 

755 ON X < L ) 60 SUB 1095, 1 1 00 , 1 1. 05 , 1110, 1115, 1 1 20 ,1125,1 -1*30 
760 GOSUB 1065 
765 60SUB 1010 
770 SOTO 1 1 40 

775 REN RISIKO-VERLUST ** 

780 CALL SOUND ( -300 , 500 , 3 > 

7 8 5 C AL L HCHAR C 23, 15, 125,6) 

790 CALL HCHAR <22, 15, 125/7) 

795 FOR A=1 TO 100 s ; NEXT A 
800 GOTO 1 1 40 

005 REM ** SONDER-SP 1ELE BE I 3 NAPPE N ** 

810 GOSUB 1280 
815 J-J+5 : : GOSUB 900 

820 CALL HCHAR <6,29,112,3):! GOSUB 1 0 1 0 
825 60 SUB 1065 
830 GOTO 1140 

835 REM #* SONDERBPIELE BE I 2 HAPPEN UND 1 KRONE * * 

840 GOSUB 1280 
845 J— J+10 : ; GOSUB 895 

850 CAL L. HCHAR <4,29, 112,3) : : GOSUB 1 0 1 0 

855 GOSUB 1065 
960 GOTO 1 1 40 

865 REM ** S0MDERSP1ELE BE1 3 KRONEN ** 

870 GOSUB 12S0 
875 J—J+20 ; s GOSUB 895 

880 CALL HCHAR <2,29, 1 12, 3) : : GOSUB 1 0 1 0 
885 GOSUB 1065 
890 GOTO 1140 

895 REM ** SGMDERSP I ELSCHLE 1FE *# 

900 M=41+3 

905 IF J>=100 THEM 915 ELSE IF J>=10 THEN 920 
9 10 D I SPLAY AT < 2 , 4 ) B I Z E < 2 ) : ” 00 " : : D I SPLAY AT <2 , 6 > S I Z E (1 > : US I NG "#" : J : : RETURN 
915 D X SPLAY AT <2,4)81 ZE < 3 ) : US 1 NG " ### " : J : : RETURN 

920 DISPLAY AT (2, 4 ) SIZE < 1 ) : "0" : : DISPLAY AT <2, 5) SI ZE (2) : USING J : s RETURN 

925 REN ** MI TIL ERE WALZE MIT KRONE ** 

930 GOSUB 1225 

935 11=41+ „ 3 GOSUB 1065 

940 GOTO 1140 

945 REM tt BE WINN I FINER HA LB DER SERIE *# 

950 4=4“ 1 

955 IF X < 1 ) “9 AND X (2) =9 AND X <3)=9 THEN 865 

960 IF ( <X <1)=X (2) XOR X ( 1) =X (5) ) AND (X < 1 ) =X (3) XOR X (3) =9) ) XOR( <X (4) =X (5) XOR X<4)= 

X (2) ) AND <X (4) == X ( 3 ) XOR X < 3 ) ==9 ) ) THEN N=M+3 

965 IF X < 4 ) =10 AND X (5) -10 AND X<3)=10 THEN 805 

970 IF X ( 3 ) “9 AND X<4.)*10 AND X < 5 ) = 1 0 THEN 835 

975 IF X<3)=9 XOR X < 3 ) = 1 0 XOR X(3)~U. THEN M=M+3 ELSE 985 

980 BOGUS 1255 

985 GOSUB 905 

990 GOSUB 1065 N ' 

995 GOSUB 1010 
10.00 GOTO 1140 

1005 REM ** ABFRAGE AUF SUPERSET? IE ** 

1010 FOR A =2 TO 22 : : CALL GCHAR (A, 29, A2) 

1015 IF A2—1 12 THEN A3=A3+1 
1020 NEXT A 

1025 IF A3* 11 THEN 1035 
1 030 A3=0 : : RETURN 
1035 REM ** 'SUPERS®! IE tt 
1040 J=J+50 : : GOSUB 905 
1045 A3-0 
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1 050 
1055 
1060 
1065 
1070 
TURN 
1075 
TURN 
1 080 
TURN 
1 085 
1 090 
1 095 
1 1 00 
1 105 
1 1 10 

I 1 15 
1 1 20 

I I m 

1 1 30 
1 1 35 
1 1 40 
1 1 45 
1 1 50 
1 1 55 
1 1 60 
1 1 65 
1 1 70 
1 1 75 
1 100 
1 3.85 
1 1 90 
1 195 
1 200 
1205 
1210 
1215 
1 220 
1225 
1230 
1235 
1240 
1245 
1 250 
1255 
1260 
1265 
1 270 
1275 
1 280 
1285 
1290 
1295 
1300 
1305 
1 3 1 0 
1315 
1320 
1 325 
1330 


FOR A" 2 TO 22 STEP 2 : 

GOT 0 1140 

REM ** AUBGABE DEG GEWINNES ** 
IF «>= 100.0 THEN 1.085 ELSE IF 
DISPLAY AT { 2 , 14) SIZE (-3) ? " 000 " 


CALL HCHAR (A, 29, 104, 


NEXT A 


D I SPLAY AT (2, 14) SI ZEE (2) : "GO” 


D I SPLAY AT ( 2 , 1 4 ) S I ZE (1 ) ; " 0 " 


M > = 1 0 . 0 THE N 1 0 8 0 EL BE I F M > - 1 , 0 THEN 1 0 7 5 
s : DI SPLAY AT (2, 1 7) SIZE (2) : US I MS ".tt'TM : s 

: D $ BP LAY A T <2, 16) S I ZE < 3: ) s U S I NS M : : 

D 1 9PL.A Y AT (2, 15 ) SIZE (4) : US .TNG " # # , # ” s M : : 


RE 

RE 

RE 


USING #":M 


D I SPL. A Y A T < 2 , 1 4 ) S I Z E < 5 ) 

REM ** GEWINNBAL.KEN ** 

M=M+ .4 ; : CAL L HCHAR C 22 , 29 , 1 1 2 , 3 ) : 
M=M+ .6 : 3 CALL HCHAR ( 20 , 29 ,112.3)! 

H=M + ,8 : : CAL L. H CH A R ( 1 8 , 29 , 1 1 2 , 3 ) S 
M=M+ 1,2 s : CALL HCHAR 116, 29 , 1 12,3) 
M-M+ 1 .6 : : C A LL HCHA R ( 1 4 , 29,112.3 ) 
M ! =M+ 1.8 s : CALL HCHAR <12, 29 , 1 1 2,3) 

M = M+ 2 ,4 : s C A L L. HCH AR <10,29, 1 12, 3 ) 
M=M+3 ; i CALL HCHAR ( 8 , 29, 1 1 2 , 3) : : 

REM #* LOESCHEN DES ALIEN SPIELS 
CALL HCHAR < 22 ,6,1 25 , 5 > 

FOR A= 1 TO 100 :: NEXT A 

RESTORE 1155 :: FOR A=1 TO 5 :: READ 

DATA 7,6,7,10,12,12,17,6.17,18 

CALL HCHAR (61,52,123,4):: NEXT A 

FOR A =20 TO 25 : : CALL DELSPRITE <#A) : 

IF M< . 3 THEN 325 ELSE IF M>999.9 THEN 

END 

SOUND <250, 440, 6.) 


RETURN 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
** 


Bl, B2 



NEXT A 
1 1 75 ELSE 


360 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

GOTO 

CALL 

CALL 

CALL 

CALL 

CALL 


SOUND < 150,392, 6) 
SOUND (150, 330,6) 
SOUND (150,294, 6) 
SOUND ( 150,277,6) 
SOUND (250,262,6) 
SOUND (350,220,6) 


SOUND (450, 196, 6) 

1 140 

SOUND (-330,800,5) 

SOUND (-330,988,5) 

SOUND (-330,784,5) 

SOUND (-330, 392, 5) 

SOUND (-990,578, 5) 

RETURN 

CALL SOUND (300, 415, 5) 

CALL SOUND ( 300 ,311,5) 

CALL SOUND (300, 523,5) 

CALL SOUND ( 300 ,415,5) 1 340 

RETURN 1345 

CAL L SOUND '(20® 440, 5 ) 1 35 0 

CALL SOUND C 200 , 550 ,5) 1355 

CALL SOUND ( 2 0 0,660,5) 1 -360 

CALL SOUND ( 400 , BBO , 5 ) 1 365 

RETURN 

SUB WALZE ( U , U 1 ) 
p— LI— 2 

□ N F GOTO 1 320 ,1320,1325,1335 
Ul=l : : GOTO 1365 
U3=INT CRND*3+i ) 

IF Ul*2 THEN 1325 ELSE 1365 
U1 = INT (RNI)*2+2) : : GOTO 1365 



U 1 = I NT < RND*4+ 1 ) : : GOTO 1365 
U 1 = INT ( RND #10+ 1 ) 

IF U 1 =3 XOR U 1—6 XQR Ul=10 THEN 1365 ELSE 1345 
Ul= I NT (RND *3+8) 

IF LI 1=9 THEN 1355 
SUBEND 


1340, 1345, 1355 


Fortsetzung 
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Zahlenputzen 


Fur den TI-99 /4 A in Extended Basic 

Bei diesem Listing handelt es sich um ein Wurfelspiel, Ihr miilk durch geschicktes Uberlegen die Zahlen 1 - 9 mit Hilfe zweier Wurfel 
ausputzen. Genauere Anweisungen findet Ihr im Programm seibst. 


Zahlenputzen 

100 CALL CLEAR : : CALL SCREEN ( 2 ) 

1 10 CALL CHAR < 136 , '‘CCCC 3353 CCCC 3333 ’' , 1 . 20 , "FFFFFFFFFFFFFFFF " , 1 . 28 , "FFFFFFFFFFFFFFF 
F", 121 , 129 , "" ) 

120 FOR A =3 TO 8 : : CALL COLOR (A, 15 , 2 ) ; s NEXT A 

130 CALL HCHAR ( 6 , 9 , 42 , 16 ) : : CALL HCHAR ( 10 , 9 , 42 , 16 ) ; : CALL VCHAR ( 6 , 9 , 42 , 3 ) : : CALL 
VCHAR ( 6 . 24 . 42 . FI ) 

140 CALL HCHAR ( 1 . 5 , 3 , 126 , 28 ) 

1 50 CALL HCHAR ( 4 , 7 , 1 36 , 20 ) : ; CALL HCHAR ( 12 , 7 , 136 , 20 );; CALL VCHAR < 4 , 7 , 136 , 9 ):; C 
ALL VCHAR ( 4 , 26 , 136 , 9 ) 

1 60 CALL COLOR ( 2 , 5 , 2 , 1 3 , 13 , 5 , 12 , 11 , 7 ) 

170 CALL HCHAR < 1 , 1 , 42 , 32 ) : s CALL VCHAR < 1 F 32 , 42 , 24 ) 

180 FOR 0=32 TO 1 STEP -1 :: CALL HCHAR ( 24 , C, 42 , 1 ) : : NEXT C 

190 FOR C =24 TO 1 STEP -1 :: CALL VCHAR (C, 1 , 42 , 1 >: ; NEXT C 

200 CALL HCHAR ( 0 , 11 , 65 , 12 ) 

210 FOR H =1 1 TO 22 :: READ ZE 

220 FOR N =65 TO ZE :s CALL SOUND <- 1 , 333 , 3 ) : : CALL HCHAR < 8 , H, N) ( = NEXT N 

230 CALL SOUND ( 100 , 300 , 3 ) : ! NEXT H 

240 DATA 90 , 65 , 72 , 76 , 69 , 7 S , 80 , 85 , 84 , 90 , 69 , 78 

250 CALL COLOR ( 2 , 11 , 2 ) 


260 

PGR 

A*! 

TO 

15 

" d 

CALL 

COLOR (14,7, 11,2, 5 , 2 ) s : CALL HCHAR (15, 3, 129,20 ) 

270 

FOR 

1 

ID 

20 

° s 

NEXT 

B t : CALL COLOR (14,11,7,2,11,2);; CALL HCHAR (15,3,1 20 , 

20) 








280 

B> 

290 

FOR 

B— i 

TO 

20 

N ■ 
■ D 

NEXT 

D s ; CALL COLOR ( 1 4 , 16,5,2,5,2) s ; CAL L HCHAR < 1 5 ,3,1 2 1 , 2 

FDR 

B-- 1 

TO 

20 

P P 

NEXT 

B ; : CALL COLOR (14, 5, 16,2, 11,2) ; ; CALL HCHAR <15,3,128, 

28) 








300 

FDR 

B™ 1 

TO 

20 

5 2 

NEXT 

B 


310 NEXT A 


320 CALL SOUND ( 1 5 00 ,262,3,3 3 0,3,392,3);: DISPLAY A T (18,8) S IZEC1 2 ) 
: : D I SPLAY AT ( 20 , 8 > S I 1 E ( 1 2 > : " AN ECKL AND 4 " 

330 DISPLAY AT ( 22 , 4 ) S I ZE ( 2 1 ) s “ 4330 MUELHEIM / RUHR” 


"ULRICH HOLLE" 


340 FOR A=1 TO SOO : : NEXT A 
350 CALL CHARSET ; ; CALL CLEAR 


CALL SCREEN (2) 


8.0 TO 430 


360 CALL SCREEN (15) 

370 HS=0 : ; DURCH6AN8=0 

380 .0 1 SPLAY AT ( 1 0 , 3) SIZE (23) : "WILLST DU AN W E I SUN BEN 
390 DISPLAY AT ( 12, 1 1 ) SIZE (7) ; " ( J/N >" 

400 CALL KEY (0, K, S) 

410 IF S=0 THEN 400 

420 IF K:==74 THEN 1960 ELSE IF K=70 THEN CALL CLEAR : 

ELSE 400 

430 CALL. CHAR ( 1 36 , " 8080808080808060 " > X 

440 CALL CHAR (137, "FF" ) 

4 50 CALL CHAR ( 1 3 8 , " 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 " ) 

460 CALL CHAR ( 1 39 , " OOOOOOOOOOOOOOFF " ) 

4 70 CAL L CH AR ( 1 4 0 , "F F 30 00 SO 808 080 SO 1 1 ) 

480 CALL CHAR (141, "FF01 0 1 0 1 0 1 0 1 0 1 0 1 " ) 

490 CALL CHAR ( 9 6 ,, " 000000000000000 1 0 1 00000000000000000000000000000080000000000000 
00 " ) 

5 00 C A !„. L. CHAR <142, " 0 1 0 1 0 1 0 1 0 1 0 3. 0 IFF”) 

5 1 0 CALL CHAR ( 1 00 , 11 000000 1 8 1 S 00 0 0 0 00 0 0 00000 0 0 0 00 0 000 00 0 000 GO 0 0 0 0 00 0 00 0 000 i 8 1 8000 
000 " > 

520 CALL C H AR (1 4 3 , " 8 0 8 080 8 0 80 SO 80FF" ) 
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CALL HCHAR <13,21,, 1 3.7 , 4 ) : 
CALL VCHAR <18, 2 1 , 1 36 , 4 ) ; 
CALL HCHAR (18, 11,141,1): 
CALL HCHAR <18,24, 141 , 1 ) 


CALL HCHAR ( 2 J. , 0 , 1 39 , 4) : : 
CALL VCHAR < 10 , 11 , 1 , 3.8 , 4 ) : : 
CALL HCHAR (21,8,143,1):: 

: CALL HCHAR < 2 1 , 2 1 „ i 43 , 1 ) : 


CALL HCHAR (17,8, 130, 1 ) : : CALL VCHAR (17,12,129,4): : 


h3U CALL CHAR ( 1 04 , " 000000 1 8 1 8Q0000 1 0 1 00000000000000000000 OOdOdonn ROSOOOOO [ Q i goo n 
000") 

540 C AL L. CHAR <128, " F FFEFCF8 F 0 EOCOBO ' ' ) 

550 CALL CHAR ( 1 08 , " 000000 1 SI 8000000000000 1 8 1 8000000000000 J. 8 1 80000 0 00000001818000 

000 ") v. 

560 CAL L CHAR (129, " F FF F F F F FFFFFFFFF" ) 

570 CALL CHAR (112, " 000000 1 8 3. 800000 1 0 1 0000 181 £? 000000 onoooo 1 0 ] 300008086000.0 3 8 1 8000 
000” ) 

580 CALL. CHAR ( 130 , "0 1 03070 F J. F3F7FFF " ) 

590 CALL CHAR (116, "000000 1 9 1 9000000000000 1 9 1 900Q0000000009898OOnoon000O009B9snn O 
000") 

600 CALL HCHAR (18,8,137,4): 

CALL HCHAR <21.21,1 39 , 4 ) 

6 1 0 CALL VCHAR (18,8,136 , 4 ) : 

CALL VCHAR (18,24,1 38 , 4 ) 

620 CALL HCHAR <18,8,1 40 , 1 ) ; 

CALL HCHAR (21, 11,142. .1 ) 

630 CALL. H C H AR ( 1 8 , 2 1 , 1 40 , 1 ) 

: CALL HCHAR (21,24,142,1 > 

640 CALL HCHAR (17, 9, 129,4) s 
CALL HCHAR <21, 12, 3.28, 1> 

650 CALL HCHAR ( 17,22, 129.4) 

: CALL HCHAR (21 ,25, 128, 1) 

660 CALL HCHAR't 11, 4, 137,27) 

670 RESTORE 680 :: FOR A=1 TG 9 : 

680 DATA 4,7,10,13,16,19,22,25,28 
690 CALL HCHAR <11, Al, 140,1):: NEXT A 
700 RESTORE 710 :: FDR A=1 TO 9 
710 DATA 6, 9, 12, 15. 18, 21 ,24,27,30 
720 CALL HCHARC11 , Al, 141, i) : : NEXT A 
730 RESTORE 740 : ; FDR A= 1 
740 DATA 4,7, 10, iS, 16, 19,22,25,28 
750 CALL HCHAR < 1 2 , A 1 , 1 36 , 1 ) : : C( 

760 RESTORE 770 : : FOR A=1 TO 9 
770 DATA 6,9,12,15.18,21,24,27, 30 
780 CALL HCHAR (13,81,142,1):: CALL 

790 CALL VCHAR ( 1 1 , 3, 138, 3) : : CALL VCHAR (11,31,1 36, 3) 

CALL HCHAR ( 14, 4, 137, 27) 

800 CALL HCHAR (1,4,139,7):: CALL HCHAR (1,23,139, 7 ? : : 

L HCHAR ( 2 , 23 , 1 37,7): : CALL HCHAR (4,4,1 39 , 7 ) 

8 1 0 CALL HCHAR (5,4,1 37 ,7) : : CALL HCHAR (4,23,139,7):: 

LL VCHAR (2,3,138,3):: CALL VCHAR (2,11,136,3) 

820 CALL HCHAR (3,4, 136, 1) ; ; CALL HCHAR (3, 10, 138, 1) : : 

L HCHAR (2,10,141,1):: CALL HCHAR (4,4,143,1) 

030 CALL HCHAR ( 4 , 1 0,142,1):; CALL HCHAR (2,23, .1 40 . 1 ) : 

ALL HCHAR ( 4 , 23, 1 43,1):; CALL HCHAR (4,29,142,1) 

S 4 0 C A L L. H C H A R ( 3 , 2 3 ,136,1):: CALL HCH A R ( 3 , 29 , 1. 38,1): 

ALL HCHAR (5,15,137,3):; CALL HCHAR (7,15,139,3) 

850 CALL HCHAR (8,1 5 ,137,3):: CALL HCHAR (5,15,1 40 , 1 ) : 

ALL HCHAR (7,15,143,1):; CALL HCHAR (7,1 7 , 1 42 , 1 ) 

860 CALL HCHAR (6,15.136,1):; CALL HCHAR (6,17, 138, 1 ) : 

ALL VCHAR (5,18,1 36 , 3 ) 

870 CALL SCREEN (11);: CALL COLOR (14,2,11,13, 2 ,11) 

880 A 1=48 

890 FOR A=5 TC) 29 STEP 3 
900 A 1 =A .1. + 1 

9 1 .0 C A L L H CHAR (12, A , A 1 , 1 ) ; : NEXT A 

920 DISPLAY AT <6, 3) SIZE <5> : "SCORE" : : DISPLAY AT (6, 20) SIZE (9) ; "HIBHSCORE" 

PLAY AT < 9 , 1 0) SI ZE (9 ) ; " BGNUSZAHL " 

930 D I SPLAY AT < 3 , 26 3 8 1ZE < 1 - ; USING "0 " 

940 D I SPLAY AT (3, 7) SIZE < 1) ; US I NG " 0 " 


CALL 

HCHAR (17, 21 „ 130, 1 ) s s 

CALL 

VCHAR <17, 25, 

CALL 

HCHAR (13, 4, 139,27) 



9 s : 

READ Al 



i, 28 




NEXT 

A 



9 ; : 

READ A I 



3 30 




NEXT 

A 



9 5 2 

READ Al 



; , 28 




CALL 

HCHAR (13* Al ? 143, 1 ) s s 

NEXT 

A 

9 s i 

READ Al 



30 




CALL 

HCHAR (12, Al ,, 1 38 ? 1) :s 

NEXT 

A 


! ; CALL HCHAR ( 1 0 , 4 ,, 1 39 , 27) : : 
C A LL. HCH AR ( 2 , 4 , 1 37 , 7 ) : : CAL 
CALL HCHAR ( 5 , 23 , 1 37 , 7 ) : : CA 
CALL HCHAR ( 2 , 4 , j. 40 , 1 ) : : CAL 
CALL HCHAR ( 2 , 29 , 1 4 1 , 1 ) : : C 

CALL HCHAR (4,15, 1 39 , 3 ) : : C 
CALL HCHAR (5,17, 1 4 .1 , 1 ) j : C 
CALL VCHAR (5,14,138,3);: C 
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950 F’UNKTE-0 s : DURCHGANG=*1 
960 BONUS-4 

970 DISPLAY AT (6, 14) SIZE < 1 ): USING "W": BONUS 
9 BO FOR A=5 TO 29 STEP 3 
990 CAL L G CHAR < 1 2 , : A , BY > 

1000 IF DY=32 THEN SUM=SUM+1 
1010 NEXT A 

1020 IF SUM— 9 THEN 1770 ELSE SUM-0 

1030 FGR A bs 1 TO 250 : s NEXT A 

1040 Y— 92 

1050 FDR A= 1 TO 6 

1060 Y-Y+4 

1070 Z ( A > =Y 

10 BO NEXT A 

1 090 R A ND 0 M 1'ZE ; :: CALL M A 6 N I F Y v4> 

11.00 FOR 0=1 TO 10 
1 1 10 Y 1 “ I NT (RNDT8) +1 
1120 IF Y 3. >6 THEN 1110 
1 1 30 Y 2 = I N T (RNDYS) + 1 
1140 IF Y2>6 THEN 1130 

1 1 50 CALL. SF'R 1 TE < # 1 , Z < Y 1 ) , 2, 1 37 , 57 , #2 , Z ( Y2 ) ,2,137, 161) 

1160 FOR A 1=1 TO 40 :: NEXT A.1 
1170 NEXT A 
1180 WERT—Y 1 +Y2 

1190 1 F Y 1 =Y2 THE: N BONU S = BDNU 5+2 
1200 IF BONUS >9 THEN BONUS— 9 

1 2 1 0 D I SPLAY AT < 6 , 1 4) SI ZE ( 1 > : USING " tt" ; BONUS 
1220 CALL KEY < 0 1 K | S ) 

1230 IF S=0 THEN 1220 

1240 IF K=32 THEN 15S0 

1250 IF f« 49 XOR K>57 THEN 1220 

1260 FOR A=5 TO 29 STEP 3 

1 270 CALL GCHAR < 1 2 , A , FF ) 

1 2 BO IF K=FF THEN 1310 

1290 NEXT A 

1300 GOTO 1220 

1310 K-K— 48 

1320 DIF=WERT-K 

1330 IF DIF = 0 THEN 1510 

1340 IF D I F >9 XOR DIFC1 THEN 1350 ELSE 1360 

1 35 0 WERT -V 1 +Y 2 “ : (3 OTO 1 2 2 0 

1360 D|'F=DIF+48 

1370 FOR A==5 TO 29 STEP 3 

1 3 80 C A L L 6CHARU2, A,FG) 

1390 IF F(3=D I F THEN 1430 
1400 NEXT A 

1 4 1 0 DTF= D I F -4 8 : : W E RT= Y 1 + Y 2 i; GO T 0 1 220 
1420 DIF-DIF+48 

1430 K=K+4S ■ 

1440 FOR A=5 TO 29 STEP 3 
1450 CALL GCHAR <12, A, DEI 

1460 IF DE=DIF THEN CALL HCHAR ( 12 , A , 32, 1 ). 

1470 IF DE=K THEN CALL HCHAR (12,, A , 32, 1 > 

1480 NEXT A 

1490 FOR A— 1 TO 5 : : CALL BOUND ( 100, 1 10+ ( 1 10$ A) ,0)5: NEXT A s : CALL SOUND <400, 44 
0 . 0 > 

1500 GOTO 1630 
1510 K-K+48 

1520 FOR A=5 TO 29 STEP 3 
1530 CALL GCHAR <12, A, DE) 

1540 IF DE-K THEM CALL HCHAR <1 2, A, 32, 1 ) 
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1550 NEXT A 

1560 FOR A— 1 TO 5 CALL SOUND < 1 00 , 1 1 0+ ( 1 i OKA ) „ 0 ) i s NEXT A s s CALL SOU Nil ( 400, 44 
0,0) 

1570 SOTO 1630 
1580 BO MU S -BON US- 1 

1590 FOR A=1 TO 10 : : CALL SCJtJND <100,220- (A* 10) ,0)3? NEXT A : : CALL SOUND <400, 11 
O , 0 ) 

1600 IF BONUS—— 1 THEN 1840 

1 6 1 0 D I SPLAY AT < 6 , 1 4 ? S I ZE ( 1 ) : US I MB " # " s BONUS 
1620 GOTO 980 

1 6 3 0 P LI N K T E = P U NK TE+ (BONUS* 1 0 *DUR C H GAN G ) 

1640 IF PUNKTE<=HS THEN 1670 
1 650 HS-PUNKTE 
1660 GO SUB 1720 

1670 IF PUNKTE 7=10000 THEN 1690 ELBE IF PUNKTE > = 1 000 THEN 1700 E! SE IF PUNKTE >==1 

00 THEM 171.0 

1 680 D I SPLAY AT <3, 6) SIZE <2) : US I N0 " ## 11 s PUNKTE s s GOTO 980 

1 690 D I SPLAY AT <3, 3) SIZE £5) i US I IMG " ft#### " s PUNK IE : : GOTO 980 

1 700 D I SPLAY AT <3, 43 SIZE74) s US I MG " «*## " : PUNKTE : ; GOTO 980 
1. 7 1 0 D I SPLAY AT (3,5)SIZE(3> : US I MG " ### " : PUNKTE : s GOTO 980 

1720 IF IMS >== 1 0000 THEN 1740 ELSE IF HS7-1Q0O THEN 1750 ELSE IF H 87=100 THEN 1760 

1 7 3 0 D I S P L. A Y A T <3, 25) SIZE (2) : U S I IMG "##":HS : : RET U R N 
1 740 D I SPLAY AT ( 3 , 22 ) SI ZEOS) s US IN© " ##### " : HS S s RETURN 
1 7 5 0 D I SP L A Y A T <3, 23) SIZE<4) : U S I NB "#### “ s HS ss R E T U R N 
I 760 D I SPLAY AT C 3 , 24 )5IZE(3) : US I NS " ### " : HS s £ RETURN 
1770 W= : 48 

1780 FOR A=5 TD 29 STEP 3 
1.790 W=W+1. 

1 800 CALL HCHAR < 1 2 ,A,W, 1 ) 

1810 NEXT A 

1 820 DURCHBANG-DURCHGANG+ 1 : : B0NUS=4 s £ D I SPLAY AT < 6 , 1 4 ) ST ZE C 1 ) :: US INS BONUS 

1830 GOTO 1030 

1 840 DISPLAY AT < 23 ,2) SIZE (22) : "NOCH El N SP I EL ? < J/IM) " 

1850 CALL KEY < 0 , K , S ) 

I860 IF K=74 THEN 1880 ELSE IF K<>78 THEM 1850 

1870 CALL CLEAR :: CALL SCREEN(2>:: FDR A=1 TO 2000 2 : NEXT A END 

1880 DISPLAY AT (23, 2) SIZE (22) : " 

1090 141=48 

1900 FOR A=5 TO 29 STEP 3 
1910 W 1 =W 1 + 1 

1 920 CALL HCHAR ( 12 , A , W 1 , 1 ) 

1930 NEXT A 

1940 PUNKTE=0 DISPLAY AT < 3 , 3) St ZE < 5) : " 

1950 GOTO 940 

1 960 CALL CHAR < 97 , " 0044 102844 7C4444 ",111,*' 0044384444444438 ",117," 004400444444443 
8 " ) 

1970 DISPLAY AT <3, 5) : "SINN DES SPIELESs “ 

1980 DISPLAY AT (8, 1 ) : " IN DIESEM SPIEL uBERNIMMT 
R WuRFEL. NIT HI.LFE DER 6EW0RFENEN SUMME MuSST 
1990 DISPLAY AT ( 1 2 , 1 ) s " I HR VERSUCHEN DIE ZAHLEN 
2000 GO SUB 2260 

2010 DISPLAY AT <3, 5) : "LoSCHEN DER ZAHLEN: 11 
2020 DISPLAY AT <6, 1 ) s " ZUM LoSCHEN MuSSEN DIE 

BE I SF 1 1 EL: " 

2030 DISPLAY AT (10,1): "DER COMPUTER WuRFELT DIE 
UMME 1ST GLEICH 7 FuR EUCH BESTEHEM DIE" 

2040 DISPLAY AT U 4 , 1 ) ; "MoGLICHKE I TEN DIE ZAHL (EM) 

2 IJND 5 3 UND 4" 

2050 DISPLAY AT <18,1):" 7 

2060 DISPLAY AT < 6, 1 ) : " WIE I HR SEHT KANN MAN BE I 
HLEN ODER ALJCH NUR EINE ZAHL LoSCHEN. " 


DER COMPUTER DAO WERFEN DE 

If 

VON 1 BIS 9 ZU LoSCHEN." 


"FASTEN 1-9 BENUTZT WERDEN. 
ZAHLEN 1 UND 6. S 

1 UND 6 

ZU LoSCHEN. 11 GOSUB 2260 
DIESER SUMME ENTWEDER ZWEI ZA 
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2070 DISPLAY AT < 10, 1 > s "WuRFELT DER COMPUTER EINE SUMME VON 10 UND GRoSSER, K 
oNNEN LOGISCHERWEISE NUR 2 ZAHLEN GELoSCHT WERDEN. " 

2080 DISPLAY AT < 1 4. i ) : "SOLLEN 2 ZAHLEN GELoSCHT WERDEN, BRAUCHT NUR DIE K 

LEI WERE ZAHL GEDRuCKT WERDEN; DIE ANDERE LoSCHT" 

2090 DISPLAY AT ( 1 8 , 1 ) : " DER COMPUTER AUTOMATISCH. " :: GOSUB 2260 
2100 DISPLAY AT <3, 5) ; "PUNKTEZaHLUNG: " 

2110 DISPLAY AT (6,1): "DIE B0NUS2AHL GIBT DIE PUNKTE AN DIE I HR FuR DAS Lg 

SCHEN VON ZAHLEN BEKOMMT. 

2120 DISPLAY AT (10, 1 ) : "PUNKTE= B0NU5ZAHL*DURCHGANG* 10 

FuR DAS LoSCHEN VON ETNER" 

2130 DISPLAY AT ( 1 4, 1 ) : " ZAHL GIBT ES DIE GLEICHEN PUNKTE, WIE FuR DAS L 

oSCHEN VON ZWEI ZAHLEN." :: GOSUB 2260 
2140 DISPLAY AT (3,5): “BON US ZAHL: " 

2150 DISPLAY AT <6, 1 ) : “DIE BONUSZAHL KANN SIGH IM SPIEL aNDERN. BE 

I EINEM PASCH (2 GLEICHE ZAHLEN 4/4 5/5 USW. ) ER- " 

2160 DISPLAY AT (10, 1 ) : " HoHT SIGH DIE BONUSZAHL UM ZWEI. B 

ESTEHT KEINE MoGLICHKEIT EINE ZAHL (ZWEI ZAHLEN) 

2170 DISPLAY AT(i4,l):"ZU LoSCHEN, KANN MIT DER LEERTASTE NEU GEWuRFEL T W 

ERDEN. DABEI ERNIEDRIGT SIGH DIE BONUSZAHL UM 1." 

2180 DISPLAY AT ( 1 S « 1 ) s “BE I B0NUSZAHL=0 HAST I HR NUR NOCH EINE CHANCE: S 

OLLTE DIESE VERGEBEN WER- DEN 1ST DAS SPIEL ZU ENDE. " 

2190 GOSUB 2260 

2200 DISPLAY AT (3, 1) : " WEITERE ERLaUTERUNSENs " 

2210 DISPLAY AT (6, 1 ) : "NACHDEM EINE ZAHLENKOLON- NE VOLLSTaNDIG GELoSCHT WU 

RDE, BEGINNT EIN NEUER DURCHGANG. DIE BONUSZAHL 11 
2220 DISPLAY AT (10, 1) : "BETRaGT WIEDER 4.“ 

2230 DISPLAY AT (16,1): ”UM DAS SPIELFELD AUFZU- BAUEN BRAUCHT DER COMPUTER Z 

8 IT. HABT ETNAS GEDULD 1 ! ! ’’ 

2240 GOSUB 2260 

2250 CALL CHARSET :: CALL SCREEN (2):: GOTO 430 

2260 DISPLAY AT <24 , 2) ENTER DRuGKEN" CALL KEY (3, K, S) : : IF K-<>1 3 THEN 2260 EL 

SE CALL CLEAR s : RETURN 
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Blizzard 


Blizzards sind aufterst intelligente Wesen die Ihnen nach dem 
Leben trachten, Sie kdnnen sich jedoch verteidigen wenn Sie 
die im Raum verteilten Protonen benutzem Mit Hilfe der Pro- 
tonen graben Sie Ihre Fallen and versuchen Sie die Blizzards zu 
fangen. Mit dem rechten Joystick bevvegen Sie die Spielfigur 
direkt unter ein Proton und driicken die Feuertaste. Noch- 
maliges Driicken lalk neben Ihnen ein Loch entstehen. Jetzt 
kommt es darauf an, den Blizzard in die Falle zu locken. Haben 
Sie das geschafft, decken Sie das Loch ganz schnell wieder ab, 
bevor sich der Blizzard befreien kann. Schafft er es trbtzdem, ist 
Ihre Lebenserwartung gleich null. 

Nach verlorenem Durchgang kommen Sie dennoch in die 
nachsthohere Spielstufe. AUerdings haben Sie es jetzt mit zwei 
Blizzards zu tun, in der dritten Spielstufe mit drd Blizzards usw. 
Fur Besitzer des Tardy Colo empfiehlt es sich die Poke-Werte 
und Adressen zu andern. 

Viel Spafi! 

RH 
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BLIIZBRD 




2 ■' ■’ B L I Z Z A R & S 

3 CO 1 9 I 4 BY *' ‘X 

4 - - 1 ' FRIEDRICH HU HOLD 

5 ' ■' HUN&SRUECKSTE . 39 

6 •'*' 3444 LRUGENBflIN 

8 REM RULE REMS KGEMNEN 

9 REM ER3RTZLQ3 GESTEICHEN 
IB REM HERO EM ! 

U REM GOSUB TITELBILD 

12 CL Ei R R Si 5 0 0 ■ 

13 CLS 0 

14 8=0 

15 PLAY "T255L255D1C*' 

16 GOSUB 149PCLERR 8 

17 REM GOSUB VRR I RBLEH 

18 REM GOSUB SPIELRBLflUF 

1 9 GR$= " j 1 f 2 ; 3 ; 4 ) 5 , 6 ■ 7 , 8 } 9 :■ 10,1 1 1 2 ; " 

20 PM0DE4, 1 : PCLS 

21 DIM H$C 13 > 

22 GOSUB 159 

23 PLAY Zl$+Xl*+Xl* 

24 REM GOTO FlMWEISUMG 

25 GOTO 118 

26 FOR F =248104 08 TEP -1 =LI NEC F , 3 ?-C F , 7 > , PRESET • FOR G= 1 T03 

27 FOR YY<L TO L*49 = NEXT 

28 REM 11,12,13 SIND 

29 REM JOYSTICK VRR I RBLEH 

30 1 1 = J0Y3TKC O ) = 1 2= JOYSTKC 1 > 

31 I3=PEEK<65280J 

32 IF 1 1 >50 THEN 47 ELSE IF I3-1260R I3=254THEN72ELSE IF IK 10 THEN 4 8 ELSE IF 13=1260 
R E3 ==254 THEN 72 ELSE IF I2<30THEH49ELSE IF I3=1260R I3=254THEN72ELSE IF I2>5THEN5G 

ELSE IF 13=126 OR I3=254THEN72 

33 REM GOSUB 270-RETURN 

34 REM GOTO VERGLEICH 

35 IF R=C AND B=D THEN38EL8E GOSUB 51 : IF A=C AND B=D THEN38ELSE NEXT G, F » G0T037 

36 IF PPOIHTC A, B+2 >=5 THEN 35 

37 L I NEC A , B-6 KC fl+7 , B 7 > , PRESET , BF = B=B+2 ,; PUTC A , B >-C fi+7 , B~7 > , A , PSET : I F PRO INK A , B 

-i-2 K5THEN38EL3E37 

38 FOR 0 1 TO 1 0 > PLAY " V20T255L2550 1 C04B " 

39 C I RCLEC A+3 , B- 3 ) , C = NEXT 

40 FOR C=10 TO 1 STEP-1 

41 PLAY"05CQ2C" 

42 CIRCLE C A + 3 , B- 3 > , C , 0 = N EX T 

43 GOTO 134 

44 -REM GOTO NAECHSTE RUNDE 

45 REM- VERGLEICH 

46 REM FUNKTE HER TUNG 

47 Pi ITC A ■ B >~C fl+7, B-7 5 , B , PSET ; R=R+8 = GETC A , B >~C R+7 , B--7 > , B , G : PUTC A , B >~C R+7 , B-7 >, A , P 
SE T - PLfl Y Z3$+ " C " > G 0 T 03 6 

48 PUTC A , G >-C R+7 , 8-7 ) , B . PSET = fl=fl~8 « GETC R , B )-C R+7 , B-7 ) , B , G = PUTC R , B >~C fl+7 , B-7 ) , fl , P 
SET ■■ PLAY Z3$+”E" ; G0T036 

4 3 I F P P 0 1 N T C fl 4- 7 , 8: - 8 )= 6THE N 36 ELSE P UTC A , B ) - C fl+7 , B- 7 > , Ei , P S ET - B= : B - S > GET C fl , B > - C Fl + 7 
, B-7 ) , B , G = PUTC fl , B >-C fl+7 , B-7 ) , fl , PSET ■ PLAY Z3*+ " Fl " ; GOTO 36 

50 IF PRO I NT C fl . B+ 1 >=0THEN35ELSE PUTC fl , B >-< Fl+7 , B-7 > , B , PSET • B=B+8 ; GETC fl , B >-C fl+7 , B- 

7 >, B, G * PUTC fl, B >-C fl+7, B-7 ), fl, PSET * PLRY"D" = G0T036 

51 ON H G0SUB53 , 57 , 60 , 66 , 77 

52 IF PPCUHTC C+3, D+2 )=50R H«5THEN RETURN ELSE H=5 ; GOTO 76 
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53 X=8 : V”@ : IF CC240THEN54EL5E H®2 ; G0T057 

54 IF BCD THEN 55 ELSE IF B>D THEN 56 ELSE 70 

55 I F PRO INK C, D~8 )“6 THEN 70 ELSEH«4 ; X=0 ■■ V«-8 ; GOTO' 70 

56 IF PPOINTCC,D+l >=B THEN 70 ELSE H=3 * X=0 ! Y=8 : GOTO 78 

57 j<=“8 : V"8 : IF OS THEN 54 ELSE H=l=Gi0TO 53 

58 REM SCAR I T TNEITE DER 

59 REM SPIELFIGUR 
66 X=8 ■ Y=8 

61 PLAY " T255L2550 1 C 

62 IF ft<C THEN 64 ELSE IF R>0 THEN 65 

S3 IF PPDNHTc C, D+Y 0=5 THEN 70 ELSE ON RMDC 2 >GOTO 64,65 
m IF PPG INK C~1 , D+2 >=0THEN 63ELSE N=2 : X— 8 • Y«0 : GOTO 78 

65 I F PPG I NTC OS , D+2 OOTNEH 63 ELSE H= 1 ■ X=3 = Y*@ : GDT078 

66 X=8 ' Y=-8 

6 r' (j 0 1 U 

68 REM BENE GEN DER SPIELFIGUR 

69 REN BE HELEN DER BLIZZARDS 

78 PUT C C, D >-C 07, D-7 >, E, PSET • C=C+X • D--D+Y = GET ( C, D )-( C+7, D-7 ), E , G : PUK C, D OC C+7 , D- 

7 ), F>. PSET : RETURN 

71 REN GERUEST AUFBAUEN 

72 IF I«1 THEN 74 ELSE IF PPOiKTC ft+1 , ES-l 1 )~0 THEN 35 

7 3 I ~ 1 : L I N E C FI , B 8 j - < A + 7 , B - 1 5 > , P R E S E T , B F = PL A V " T 25 5 0 3 ’ ' + X 1 $ .= G 0 TO 3 5 

74 I =0 - L I NEC R+8 , B+ 1 >- C R+ 1 5 , B +3 > , PRESET , BF : I F 08=0 RND B +8=D THEN75ELSE PLRY " T25 
5 0 1 D T 7002 E " : GO TO 35 

75 PUT C C , D >~I C+7 , D-7 ) , F , PSET = PLRY Z 1 $+ " T288 " +ZX* : M= 5 M- 1 : S=S+ 1 08 = I F M >8 THEN 79ELS 
El 05 


76 PUT C C , D >-< C+7 , D-7 > , E . PSET • D=D+8 » PUK C,-D >~C C+7 , D-7 X. F , PSET = X=RND< RND< 5© ) )+LTRN 
DC 1 0 ) = RETURN 

77 PLRY Z3*+ "O •• X=X - 1 ■ IF X >®THEN 78. ELSE D=D-8 : PUK C, D C+7, D-7 >, F , PRESET ; H=RHD 

( £ i ON H GOTO 53,57 

78 PUK C , D >-C C+.7 , D-7 > , E, PSET ' PUK C , D >-C C+7 , D-7 > .. F , PSET • RETURN 

7 9 L I HE C 1 0 0 + M * X 0 , 28 >-■ C 187+1 S tH , 1 3 > , P R ES ET , B F 
8 8 u --192 ■ D '= 3 9 ■ H = 2 1 GO T 0 3 5 

81 1=0 0=0 Ut=7-L 

82 POLS 

S3 REM ZEICHNE BLIZZARD 

34 DRAW " BN 1 0 , 1 1 U6L2R5L2D6BR4R2U6L2R5L2D6R2BR2U6R 1 DSU5R 1 D 1 F 1 U 1 R 1 U 1 R 1 U 1 D6R 1 U6BR2R6 
LS06R6L5U6D3R3" 

3 5 F 0 R A =191 T 04 7 STE P - 2 4 

86 DR BN "BM8, "+STR$C ft ) 

87 FOR BO TO 20 
33 DRAW R$ 

39 NEXT B, A 

19 0 R El S T ORE = F 0 R A = 1 TO 9 * READ B , C 

91 D=RND< L >*3 

92 I F C- 8 * D < 4 0 T H E H D=D -3 * G 0 T 0 92 EL S E L I N EC B , C- 1 > -< B + 7 , C - 8* D- 8 > , P RE SET , B F 

93 FOR E+0TO D : DRAW B$ 

94 NEXT £, fi 

95 DATA 1 84 , 1 6 , 1 84 , 96 , 1 60 ,72, 1 36 , 290 , 1 1 . 1 ; b , 1 -3 b , 4 6 , S 3 , 1 2 0 , 6 4 , 1 4 ■ ' , 3 3 

9 6 F OR Fl = 3 2 T 02 1 6 S T E P 1 8 4 > FOR B = 55 T 0 1 7 5 S T ll P 2 4 •• P 1JT C ft , B > - C R+ 7 , B- 7 > , C , P 8 E T 

97 NEXT 8, R ^ 

9 3 L 1 N E C 4 8 , 3 > - C 247,7 > , P SET , B P 

99 GETC0, 100 >-C7, 93 >,B,G 

100 GETC0, 100 OC?, 33 >,E,G 

1 0 1 F 0 R X * 1 13 0 T 0 1 0 8 + C 6 - L > % 1 ©STEP 1 0 • P U T C X , 20 -C X + 7 , 1 3 > , F , P 3 ET ' 

102 NEXT X 


1 03 0=9.6 i B* 1 83 i H=i : 02 1 6 : D=39 

104 GOTO 130 

1 05 PL ft V " 03 ■' = S=3+F = CLS L ’ I F L - 1 THEN 1 42ELSE PR I NTS 1 66 , " 9esch.afft "j : PR I NT§ 1 67 , 7-L j 
" . RUNDE - ENDE" , > P L H Y " T 5L 5CCDD ft AG GBBEE DD CC T2 5 5 L 255 ' ! 

1 06 PR I NTS225 , ” SCORE ■■"}$} ■■ PR I N T§24 1 , " H 1 - : " HSC 1 > , 
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1 07 PR I NTI330 , " RUNDE ’’ > 3™L ; " BEG I NNT “ > = PL.fi V " 0 1 +GR$+ " 02 +GR$+" 03 " +GR*+ " 04 " +GR$+ " 
05"+GR!®+"0:L " 

1 03 PLfiV 05 " +GR$+ " 04 -t-GR®* N 03 ! ' +GR*+ " 02" +GR$+ " 0 1 " +GR* 

103 GOTO 133 

110 IF KC~0 THEN D I M AC 0 , 8 ) , BC 0 , 8 ) ,.CC 0 , 6 > , EC © , 8 ) , FC 0 , 8 > ELSE IF XC* 1 THEN P MODE 4 
, 1 = SCREEN!, I ■ POLS 

1 1 1 DRAW " BM 1 0 1 , 33R5E 1 L7U 1 R7U 1 1.7 U 1 R7H 1 L5 

1 1 2 GETC 1 00 , 99 >™C 1 ©7 , 94 ; , C . G 

1 1 2 fi$=" BR 1 R0BR2R0BR2R0BR2R0BR2R0BR2R9U 1 L 11 U 1E1R1E1R1E1R1 F 1 R 1F1R1F 1 BU4L 1 1 R 1 U 1BR2 
R9BR2R0BR2R0BR2R0BR2R0BM+ 1 , +7 " 

1 1 4 B$” " D7U2L7D2U70 1R7BD7 
US PLfiV 2 I $+22$ 

1 1 6 DRAW " BM96 , 1 83R 1 U 1 R 1 U 1 R3D 1 R 1 D 1 R 1 BUSH 1 L.5G 1 BR3R 1 U2L 1 H 1 R3H 1 L 1 

117 PLfiV 22®-KQ$ 

1 1 8 GET < 36 , 1 33 >-( 1 03 , 1 76 ) , fi , G 

1 1 3 DR fi W ' ' BM 1 33 , 3 3 R 5 E 1 L7U 1 R 7 U 1 L. 7 E 1 H 1 F 1 R 5 glGlHlEl G 1 L3H1F1E1H1F1R1E1 G 1 

120 PLAY X2$ 

1 2 1 GETC 1 32 , 33 >~< 1 39 , 32 > , F .■ G 

122 PLfiV 21 $+22$ 

123 L*7 

124 CLS 

125 PR I NT "BLIZZARD WIRD MIT DEM RECHTEN 
1 2 6 P R I N T 1 ' D U R C H 0 R U E CKEN D t. S FIRE K NOP F E 8 
N AN GEL AN GT BIST" 

J 27 FRIHT"KRNHST DU DIE BLIZZARDS 
123 P R I NT ' ! P UHKT Z RHL VOM VERFASSER : 1245" 

123 GOTO 135 

1 3 0 P L. fi Y ' ’ T 2 0©L 1 1 B 0 1 C 05B ’ 1 

1 3 1 PI JD: R , B >-< fi+7 , B™7 > , fi • PSET 

132 PM0DE4,. I ■ SCREEN Lt 

133 GOTO 26 

1 34 PLfiV Z 1 $+X 1 $+X2*+ZX$+2 1 T 


. JOYSTICK GESPIELT. 

UND I4ENM DU UNTER DEN KRAFT™ 


PHKETE 


BESIEGEN. " 


1 35 PLfiV " 02 " ■ CLS L ^ PR I NT % 1 06 .• " ver 1 oren = PR I NTs 167, 7-L ; " . RUHDE ELIDE N , : PLAY ” T 4L40 


1 CCDDfifiGGBB03EEDD0CT£55L255 " 

1 3 6 P R I NT % 2 2 5 •, ' 1 SC ORE ■ 11 1 3 , : PR I H T § 24 1 .. " H I ™ : " ' ; H S < 1 > ; 

137 IF STHSC1) THEN 139 ■ IF S<H3< 1 THEN 143 
123 fiN=AN+l-IF fiN<5 THEN81 ELSE 143 

1 39 HS=S ; PR I NTS289 , " NEW H I -SCORE = 

1 40 PR I NTs 4 25 , 8-L " . ROHDE BEG I NNT " > 

141 PL fi'V ! a V V ■ LUT0133 _ 

14? CLS 5 : PRINT§36, "DU HAST ES GESCHfiFFT I I ! " ; 3-8+1000 ■ PLAY" V2SL303DT4Lb03V3lOfiB ■ 
G 04 D 0 3 L 4 Fi ! 5 BO 4 0 3 B 0 4 C DC 03 B B 0 4 CD 0 3fi G fi B RL30 30 D D 0 4 GG " : G 0 TO 1 3 6 

1 43 PLfiV " 0 1 " +GR*+ " 02 " +GR$+ " 03 " +GR$+ " 04 " +GR$+ " 05 " +GR$+ " 0 1 " 

144 CL32 

1 45 PR I NT §292 , " NEUES SP I EL J-" N ?? " I NKEY$ I F D$? " " T HEN 1 45 
) 46 PLAY "05" +GR$+ "04" +GR$+ " 03" +GR$+ " 02 " +GR$+ " 0 1 " +GR$ 

147 IF D$~" J" THEN 132 
143 I F ■ D$< > " J " THEH230 

149 Z 1 " V2ST5L503 " 

150 22$-" V 20 T 5L 5 0 4 ' ' 

151 Z3$-" V 1 5 T 255L2 0 00 3 ' ’ 

1 52 X 1 $= " DDDFFFCCCEEE " 

1 5 3 K2 $ == " A fi ABB B GG G D D D 1 1 

154 ZN$“ " L4CEEL3D " 

155 RETURN 

156 REM TITELBILD FUER SPIEL 

157 REM TITELBILD FUER 

158 REM BESTENLISTE _ „ rrt . 

159 R$="CDE" : FOR Q™ 1 T08 = POKE 1 447 , 35 = PLfiV " T255L255V20O5 " +R«+ " 04" +R$+ " 03 +R*+ 02 + 

R$+"di"+R* 

1 60 SETC 0 , 1 0 .. Q > -SETC1 , 3 , Q > > POKE 1485,1 8 ‘ POKE 1 486 , 3 

1 6 1 FOR FH“2T05 : SETC FH , 3 , Q ) ; NEXT ; POKE 1 4-48 , 3 


63 
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i 62 FOR F=9T0 1 2 > SETC 6 .■ F , Q > = NEXT = POKE! 449 , 1 5 
1 S3 SETC 5 , 1 2 , Q > * SETC 4 , 1 2 , Q ) = POKE 1 487 , 3 = POKE 1 488 , 8 

1 64 FOR H- 1 2T0 1 5 = SETC 6 , H , Q > = NEXT = POKE 1 400 , 1 6 

1 65 FOR FH-STO 1 STEP- 1 ■ SETC FH , 1 5 , Q ) = NEXT = POKE 1 45 1 , 25 

1 66 SETC 8 , 1 4 , Q > . EOF? FH== 1 5TQ9STEP- 1 ' SETC 2 , FH .. Q ) = NEXT « POKE 1 452 * 1 S 

1 67 F OR FH=9T0 1 5 = SETC 9 , FH , Q ) = NEXT : POKE 1 453 , 9 = POKE 1 483 , 5 POKE 1 484 , 4 

i 68 FOR FH" 1 1 TO i 5 : SET C 1 2 , F H , Q > = NEXT = SET C i 2 , 9 , Q > = POKE 1 454 , 7 = POKE 1 48 1 , 1 8 ; POKE 1 482 . 
9 

1 69 FOR F= 1 6T0 1 9 : SETC F , 1 1 , Q > : NEXT = SETC 19,12, 0 > •• SETC 1 8 . 1 8 . Q '> ■■ SETC 17.1 4 . 0 "> t POKE 1 45 
5,8 = P OK E 1 4 56 ,28 = P 0 K E 1 43 0.6 

1 70 FOR H= 1 6TP 1 9 = SETC H , 1 5 , Q > ■■ NEXT = POKE 1 457 , 35 

1 7 1 FOR F-23T026 = SETC F , 11, Q > = NEXT = SETC 26 ,12. 0 ’■ = SETC ?5 , 1 3 . 0 'n ; SETC 24 . 1 4 . 0 > 

172 F OR H~£3T0£6 = SETC H , 1 5 , 0 ) = NEXT 

1 7 3 F OR F FI = 3 0 T 0 3 5 = SET C F H , 1 5 , Q ) = H E X T 

174 F 0 R F H = 3 8 T 0 3 5 : SETC FH . 11 . 9 > = N F X T 

1 75 FOR FH~ 1 2T0 1 5 = SETC 38 , FH , Q > > NEXT = POKE 1 473 , 8 

1 76 FOR FH= 1 2T0 1 5 = SETC 35 , FH , Q ) = NEXT : SETC 36 , 1 5, Q > = POKE 1 474 , 2 1 


177 F OR FH= 1 1 T 0 1 5 = SET C 39 , FFI , Q > • NEXT = SET C 40 . 1 2 , Q > ■ SET C 4 1 , 1. 2 , Q ;> - SETC 42 , 1 1 , Q > : POKE 1 


175, 14 

L 78 F OR F ==46T 05 1 : SETC F , 1 5 , Q > = NEXT = FOR H-46T05 1 : SETC H ,11, Q > = NEXT = POKE 1 476 , 1 5 
1 79 F OR H- 1 2T 0 1 5 ' SET C 46 , H , Q > = NEXT ' FOR F=8T0 1 5 = SETC 5 1 , F 9 '> ■ HFXT = POKF 1 477 . 1 ? 

1 86 SETC 52 , 1 5 , Q > = POKE 1 478 , 4 

181 PRINTil , "FRIEDRICH HUNOLD" i = PRINTB34 , "HUHDSRIJFCKSTR. 39" : = PRINTER? . "8444 LON 
GENHAIN" = IF XI>5 THEN RETURN 

1 82 PR I NT §263 , ’’ drueck e " i CHRSK 1 28 " f i re " > ■ PLfiY " 0 1 " +GP$+ "02"+ GR$+ "03 " +GP$+ " 04 " +GR 

S+"05"+GR* 

1 83 I F PEE K C 6 5 2 8 0 >=*12 6 0 R PEE K C 6 5 2 80 > = 2 5 4 THEN F 0 R R= 3 1 T 0 1STE P - 1 = R$ == STRT C R > ■ FL RY 
" V "+R$+" 05 BO 1 C " : NEXT = RE TURN ELSE PLAY Z3*+X 1 ¥ = PR I NT§4 1 6 , STR I NG$< 32 , CHRTC 1 28 > ) , > P 
R I NT§448 , STR I NG$C 32 , CHRT C 1 28 ) > , = NEXT 

134 GOTO 159 

1 8 5 PRINT" D RUE C KE FIRE ! " 

186 REM BESTENLISTE 

187 REN ZURUECK TITELBILD 


188 IF PEEKC 65289 )-1260R PEEKC 65280 >"254 THEN 189 ELSE 188 


189 FOR R=1T031 = R*“ S TR-SK R 5 = PL RY 11 V ' ' + R $ + " 0 5 B 0 1C" = N E X T 

190 F 0 R R = 1 024 T 0 1 535 = P OKE R , 1 9 1 = HEX T 

191 SCREEN 1, 1 -GOTO 81 

192 CLS0-FU= ,, O5BO1C" 

193 XC=5 ■ GOSUB 159 

134 PRIHTi448, "***:* BEST E H L I S T E «*" = FOR F=1T031 : FT-STRTC F ) = PLRY"T200 
L200V " +F$+F 1 $ : NEXT 

195 P n R F : = 3 1 T o 1 S T E P -- 1 : F $ = STR $ C F > : P L ft V " V ' ' + F $ + F 1 $ : N E XT 

196 IF PEEKC 65280 >=126 OR PEEKC 65280 >-254 THEN 197 ELSE 194 

1 97 CLS ; PR I NT §9 , " BL I ZZflRD " 

198 FOR I*1TO10 

1 99 PR I NT §39+ I 432 , US I NG " ###### " j HSC I > ; = PR I NT§47+ I *32 , HS$C I ) , STR I NG$C 1 0- LENC HS$C I 
\ \ II n \ ■ ■ kjCVT 

200 IF s > 9 9 99 T H E N 8=99 99 

20 1 PR I NT §4 23 , "DEI HE PUNKTE " , = PR I NT§435 , US I HG" ###### " i S ■ 

202 IF SOHSC IS) THEN 225 

203 PR I NT §4 8 1 , " DEI H VO RN ft ME 7 - * " J 

204 F'N$- M " = IN$“INKEY$ 

2 0 5 1 N* = I H K E V S = IF I NT--" "TH EH2 0 5 

206 IF ASCC I NT >= : 13 AND PN*<>" "THEN212 

2: 0 7 IF A 3 C C I N $ >“ 8 AN D P NT < >" "T H El N PH $ =LEF T $ C P H $ , L E HC P N $ > - 1 > = G 0 T 0 2 1 1 

208 IF INTO" "AND INT<"R"OR IN$>"Z"THEN205 

209 IF L E N C P N $ ) > 9 T H EM 205 

210 PN$=RHT+IN$ 

211 PR I NTG500 , Pm STR I HGSC 1 8-LENC PINT > , " " 

212 1=1 

213 IF S< =HSC I "'THEN I « I + 1 = G0T02 1 3 

214 IF I=10THEN PLAY F1*>G0T0223 


; GOTO SO 5 
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215 

PR 1 1771359 

, USING"######" 

j !^i j 

PR I NT £367 

,PN$j 

STRINGS 

10-LENC 

. PH* ) / 11 

" 

216 

,>q ; PLRY*" 

V30TE55L255! 










217 

HS< J+ 1 >=H: 

SCJ> = HS*<J+1 >« 

HS*< 









212 

PRINTS39+: 

32T< J+l >, USING 


» ■ HS< J 

).; * PR 

INT£4 

■7+.; 

32Y< J+l ' 

:.i , hs£< j : 

‘j STRINGS 10— 

EN< ! 

HS$C J > >.■ " 

" ’J ; 










219 

SOUND 1-K 

10Y-J 1 

*s 









■;> y ft 

PR I NT® 33 -k 

J£32- USING"### 

###" 

■ C' - 

PRINT£47+3 

24 J, F 

' N Efi .i 

STRINGS 

IN 10-LEN 

kpn*?." " y: 

221 

SOUND 5+C : 

3YJ>, 1 










222 

J-J-l ; IF . 

i - T THEH217 










% o "■ 

cT.cLO 

PRINT! ■33-1’ 

IT32, USING"### 

### 11 

; 2 i 

= PRINT 

347+3 

2-1: 1 , F' 

N$.i 

STRINGS 

5< 10-LEN 

t( PH$ ).< " " >.; 

224 

H3C I >-8 : H: 

S$( I )=PN* : SOUND 20 

-J, 

■| 

l 







225 

PLRY" OS "+i 

3R$+ " 04 " +GET+ " 

03 T} H™ 

6R$- 

+ ''G2 m +! 

jR$+" 

01” +G 

m 




226 

PLRY GR*+ 

"G2 ,, +GR®+"03 ,, + 

GRS’T 

11 04 

"+(&$+ 

, 'd© ,, + 

GR$ 





2, 2 r 

CL.se = s=e = ; 

YC- I ; G0SU8153 










’T l 7 ‘ o 

iL, C. — 1 

RN"-8 : CLS 











223 

GO TO 2 5 











230 

PRINT® 232 

.■ 11 sch'J.dt? 


n 

; 







231 

PRINT!325 

, "BIS ZW NR EC 

LISTEN M 

RL'L: 







2 62 

END 












NEW ORIGINAL GAMES 
FOR THE COMMODORE 64 

• NIGHTMARE PARK is in fact a compendium of 14 

games. The task of the user is to gain as many points as possible traveling 
through a maze beset by obstacles at every turn, These in furiationg obstacles 
are overcome by a combination of Skill, sharp reflexes or by Sheer good luck 
making Nightmare Park a suitable game lor ali ages. 

PRICE £7.99 

• DOTS & S O X E S is an intelligent game where the user and 
the computer take turns in completing boxes by drawing a line between two 
dots. The aim of the game is to win the most boxes whilst skilfully minimising 
the number of boxes given away to the computer. 

PRICE £6.95 

• HEXAPAWN For strategic and persistent play. The opponent 

( computer) has no initial strategy but is programmed to learn from the user's 
wins to improve its own strategy. 

PRICE £5.95 

• CHOPPER LAND Your chopper is chartered to transfer 

goods from your base and land SAFELY. An exciting new game full of 
surprises. 

PRICE £7.99 

Send Cheques/PO: 

A.R. SOFTWARE 
86 Avonbrae Crescent 
Hamilton, Scotland 
Tel: 0698 282036 

DEALER ENQUIRIES 
WELCOME 


2 Voucher 


Collect this voucher and 
either 1 or 3 from the last 
and next Issues of Per- 
sonal Computer News 
and when you purchase 
either: NIGHTMARE 

PARK. DOTS & BOXES or 
CHOPPER LAND you will 
get HEXAPAWN com- 
pletely FREE. 


NEW - FOR ALL DRAGON USERS 


Programming the Dragon 32 

Peter Laflerty 


Programing the 


This new book guides 
Dragon 32 users from the 
humbiest level of 
programming in BASIC to 
the point where they can 
write programs that make 
use of the Dragon's most 
sophisticated features. 

The book covers simple 
graphics, high-resolution 
graphics, colour, 
animation, sounds, music, 
joysticks and the printer. 

Included are listings of many programs not 
previously available for the Dragon 32. 

Soft cover 256 pages 0 406 01443 1 



£6.95 


Available from your nearest bookseller. 


ewnes Technical Books 

Borough Green, Sevenoaks, Kent TNI 5 8PH 



R.R 
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Service 


Liebe Leser! 


Jedes Programm in Computronic wind einer Endkontrolle in unserem Hause unterzogen und genauestens gepruft. Alle im Heft 
abgedruckten Programme sind nach der richtigen Eingabe der Listings auch funkrionsfahig. Viele Leser verlieren jedoch schnell 
die Geduld am Programmieren, sollte etwas einmal nicht klappen. Die haufigste Ursache von Storungen im Programm sind 
unterlaufene Fehler bei der Eingabe* Verzweifeln Sie nicht, sollten Sie einmal keine Zeit zum Programmieren haben oder sollte 
etwas nicht gelingen, 

Alle Programme werden im Verlag gespeichert und konnen jederzeit mit beiliegender Bestellkarte zum Selbstkostenpreis bezogen 
werden. 

Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein und schicken Sie an: 

Tronic- Verlag GmbH 
Landstrafte 29 
3444 Wehretal i 


Preisliste* Kassetten (K) und Disketten (D) Bestellung Heft April ! 84 


VC-64 

K - 

8,- DM 

VC-20 

K = 

11,50 DM 

Apple II 

K - 14,50 DM 


D = 

15,- DM 


D = 

18,- DM 


D = 19,50 DM 

Mauern, Wider stand 



Hangman, Saurer Regen, 


Wilder Westen, Karambolage, 

ZX-Spectrum 

Inventur 



Quadr. Gleichung 



Maskengenerator 


K = 

12,- DM 

ZX-81 

Invader, Gun-Man 

K = 

8,50 DM 

ATARI 

Mastermind, 

K = IQ, 50 DM 


T1 99 

K = 

8,50 DM 

Dragon 32 

K = 

6,- DM 

Schlangenkrieg 


Drei-Kronen-Spiel 



Blizzard 





AIs zusatzlichen Service bieten wir an: 

»LandeanfIug Boing« auf ZX-81 (Kassette), 15,— DM 


Kleinanzeigen 


ACHTUNG! 

Unser Buro 1st von Montag bis Fret tag in der Zeit von 
9-12 Uhr und von 14-16 Uhr telefonisch zu erreichen. 
Sollten Sie Fragen zur Redaktion oder zu Computronic 
haben, rufen Sie tins bitte an! 

(05651)40643 


Kontakte: 

Elektro nik-C enter Eschwege 

Elektronische Bauelemente 1 Computer 
CB-Amateur-Funk ■ Industrieelektronic 

Vertrieb ■ Herstellung ■ Reparatur 

3440 Eschwege + Postfach 465 ' Telefon (05651) 602 55 

ATARI 

Suche/Biete Software, manuelle Tips+Tricks fur ATARI* 
Eventuell Tausch. 

Roland Reyen 
6438 Ludwigsau 1 


Angebote: 

VC-64 

Biete echtes Monopoly ftir VC-64, Wie im Original* 
Diskette DM 20,— 

Cassette DM 18,— 

Chiffre 0401 


Biete Auto Rem- Writer fur ZX-81. Hardware* 
Palit in das ZX-Gehause. 

Kem Betriebssoftware. 

F. Hanold 

Hunsrixckstrafie 39, 3444 Langenhain 


Verkaufe Screen-Kit for den Dragon 32. 

20,— DM plus Porto + Verpackung* 

Suche und tausche Dragon 32 Software. 

Bin auch an Module und Colour Computer interessiert* 

Chiffre 0487 


66 


Pnmni ifnnnir 1 






Im nachsten Heft: 


*0 


M 


o' 





— unser Forthkurs Teil 2 

— neue Infos und Tips 

— neues vom amerikanischen Markt 

— Hugo der »Hacker« meldet sich zu Wort 

— mehr kurze Anwendungsprogramme 
und natiirlich wieder jede Menge 

Spiel-Programme 

-Programme 

-Programme! 



Es verabschiedet sich; Die Computronic-Redaklion 
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compufcromc 

Tronic-Verlag GmbH 


compufcromc 

Infos 


Tips und Tricks fur Einsteiger, Anfangerund Fortgeschrittene. Informationenund Daten. 
Sinnvolle Anwendungen und Anregungen. Lernen, anhand von Computronic, Programme 
einzugeben und Programme zu schreiben. Von Basic bis Maschinensprache. Neues vom 
Computermarkt uber Hard- und Software. 


compufcromc 

Software-Listings 


(Jnser Schwerpunkt in den Ausgaben [70%]. Leichte und anspruchsvolle Programme 
werden im Heft abgedruckt, wobei die Redaktion alle bekannten Home-Computer 
berucksichtigen wird. Wenn man will, kann man die Programme einfach eingeben, damit' 
spielen Oder arbeiten. Alle Konzepte und Begriffe sowie alle Spiele werden vor ihrer 
Anwendung erklart. 


compufcromc 

Software -Service 


Abgedruckte Programme konnen als zusatzlicher Service uber den Verlag bezogen 
werden. Wer kein Interesse hat seinen Computer zu »futtern«, oder wem es zu lang- 
weiiig wird zu programmieren, kann alle abgedruckten interessanten Spiele auf Cas- 
sette und Diskette erwerben. 


Comp utronic erscheint monatlich im Tronic-Verlag. Der Bezugspreis betragt im Inland 
DM 5,50. Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlagsgesellschaft mbH ■ LandstraBe 29 • 3444Wehretal 1 * 05651 -40B43 


